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To Begin With 


RA6800ML, a resident Macro Assembler for the Motorola 6800 Microprocessor, is a two 
pass assembler designed to run on a minimum system of 16 K bytes of memory, a system con¬ 
sole such as a Teletype, a system monitor such as the Motorola MIKBUG read only memory 
program or the ICOM Floppy Disk Operating System (FDOS), and some form of mass file 
storage such as dual cassette recorders or a floppy disk. A system monitor other than those 
mentioned above could be used by simply changing two 10 jumps in the Assembler, a jump to 
the input-a-character routine INEEE and a jump to the output-a-character routine OUTEEE, 
and by supplying functionally equivalent 10 routines for the user’s specific system. 

The Assembler can produce a program listing, a sorted Symbol Table listing, and relocatable 
object code. The object code is loaded and linked with other assembled modules using the 
Linking Loader LINK6800. The companion PAPERBYTE™ publication LINK68 — Unking 
Loader for Motorola 6800 gives details on how to use the Linking Loader. 

This book is divided into four major sections. In the section THE SOURCE LANGUAGE, 
a detailed description of the 6800 assembly language and its components is given. The instruc¬ 
tion and address type formats are outlined in addition to details about the pseudo instructions 
and macro facilities. This section provides the necessary background for coding programs in the 
6800’s assembly language and understanding the operations of the Assembler. 

The section on THE ASSEMBLER describes the actual routines which make up the Assem¬ 
bler. Each subsection presents a logical collection of routines which provide a particular function. 
In addition to short descriptions of the routines, a cross reference is given showing all calling 
and called by routines. Additional information about pointers, flags, and temporary variables 
is supplied. Finally, detailed flowcharts of each routine are provided. 

The exact 10 interface needed for using the Assembler naturally depends on the actual con¬ 
figuration of the user’s system. In INTERFACING AND USING THE ASSEMBLER sample IO 
routines for a tape system and floppy disk system are examined. Tips are given on how to design 
10 routines (or modify those provided as examples) to fit the user’s system. Finally, information 
on loading and executing the Assembler, as well as source and object tape formats, are provided. 

Section five is the appendices which contain error messages generated by the Assembler, the 
Assembler and same 10 driver source code listings, the bar code representation of the as¬ 
sembler’s relocatable object file, an implementation guide for bootstrapping RA6800ML 
without the use of the linking loader LINK68, and the Assembler and IO routines in absolute 
formats for the bootstrap process. 

Finally, a detailed INDEX is included for quick reference to a variety of items. 

In this book is what I believe to be a complete set of documentation for the 6800 assembler 
program. Every flowchart, every listing, every item was included for one purpose: to provide 
the user with everything needed for the use of modification of the Macro Assembler. 

In addition, it was my express purpose to provide everything necessary so that the user can 
easily learn what he or she needs to know about the system. By providing not only the 6800 
assembler language description, but also a source code listing and detailed description of every 
routine of the Assembler, I intend to provide the user with an opportunity to learn about the 
nature of assembler design and implementation as well as simply acquiring a useful software 
tool. It is through this kind of encouragement that I hope to advance the state of the art of 
home computing. 


Jack E. Hemenway 




The Source Language 


Instruction Format 

A source language statement consists of a label, an 
operation code, an operand, and comments. The label is 
used when needed as a reference point for other statements. 
The operation code may be a mnemonic machine operation, 
a pseudo instruction, or a Macro call (a reference to the 
Macro’s name). An operand may bean expression consisting 
of an alphanumeric symbol, a number, a special character, 
or any of these combined with arithmetic operators; or 
in certain instances there may be no operand at all. The 
comments are entirely optional. The fields in a source 
statement are separated by at least one space character 
(20 hexadecimal). This source language definition is based 
on the original Motorola 6800 assembly language, with 
minor omissions and major extensions such as the Macro 
facility. 

Statement Characteristics 

The fields of the source statement appear in the follow¬ 
ing order: 

[label] opcode operand(s) [comments] 

The items in brackets ([ ]) are optional. 

Field Delimiters 

One or more spaces separate the fields of a statement. 
An End-of-Statement mark (carriage return) terminates 
the entire statement. A single space following an End-of- 
Statement mark from the previous statement indicates the 
absence of the label field. 

Character Set 

The ASCII characters recognized by the Assembler are 
as follows: 

A through Z 
0 through 9 
* (asterisk) 

+ (plus) 

- (minus) 


/ (slash) 

$ (dollar sign) 

’ (apostrophe, single quote mark) 

, (comma) 

# (pound sign) 

& (ampersand) 

(space) 

Any other valid ASCII characters may appear in the 
comments field. 

The letters A through Z, and the numbers 0 through 9 
may be used in an alphanumeric symbol. In the first position 
of the label field an asterisk indicates a comment line; in 
the operand field it represents the value of the program 
location counter for the current instruction if it is in the 
first position; otherwise it is recognized as the multiplica¬ 
tion operator for an expression. 

The plus, minus, slash, and asterisk are used as operators 
in arithmetic expressions. 

The pound sign is used to indicate the immediate address¬ 
ing mode, the dollar to indicate hexadecimal numbers, 
the apostrophe to indicate ASCII strings, the ampersand 
to indicate substitutable parameters in Macro definitions, 
and the comma to separate operands. 

Spaces separate fields of a statement and may also be 
used to format the output listing. 

Statement Length 

A statement may be up to 72 characters long. 

Label Field 

The label field serves to identify the statement and may 
be used as a reference by other statements in the program. 

This field starts immediately following an End-of- 
Statement mark and is terminated by a space. A space in 
position one of a statement indicates that the statement 
is unlabeled. 

Label Symbol 

A label is composed of from one to six characters. The 
first character must be an alphabetic character. The remain- 


} "alphabetic” ) ,, 
( "numeric” * j 


alphanumeric” 
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ing characters must be alphanumeric characters. If the label 
is composed of more than six characters, the Assembler 
truncates the symbol to six characters. 

An asterisk in position one indicates that the entire 
statement is a comment. An asterisk in any position of the 
label field other than the first position is illegal. 

Opcode Field 

The operation code (opcode) defines an operation to be 
performed by the computer or by the Assembler. This field 
may contain an operation code, a pseudo instruction, or a 
Macro reference. The opcode field follows the label field 
and is separated from it by at least one space. If there is 
no label, this field may begin anywhere after position one. 
The opcode field is terminated by a space. 

Operand Field 

The meaning and format of the operand field is de¬ 
pendent on the type of operation code used in the source 
statement. 

This field follows the opcode field and is separated from 
it by at least one space. When dual operand instructions are 
used, the first operand must be either an “A” or a “B”, 
indicating the A or B accumulator, respectively. The single 
characters “A” or “B” must be preceded and followed by 
one or more spaces. The operand field is terminated by a 
space except when there are no comments; in that case it 
may be terminated by an End-of-Statement mark. 

Symbolic Terms 

A symbolic term (symbol) follows the same rules for the 
formation of labels. A symbol used in the operand field 
must be defined elsewhere in the program. An asterisk may 
be used to refer to the value of the location counter at the 
time the source statement is encountered. 

Numeric Terms 

A numeric term (number) may be either decimal or hexa¬ 
decimal. A decimal number is represented by one to five 
decimal digits within the range 0 to 65535. A hexadecimal 
number is indicated by one to four hexadecimal digits 
within the range 0 to FFFF and is preceded by a dollar 
sign ($). 

Strings 

An ASCII string is any sequence of valid ASCII charac¬ 
ters preceded by a single quote mark and followed by a 
single quote mark. If an embedded apostrophe is needed, 
two apostrophes are used (which count as a single charac¬ 
ter.) The value of a string is formed by the 8 bit ASCII 
characters enclosed between the delimiting apostrophes. 

Expression Operators 

The asterisk, symbols, and numbers may be joined by 
the four arithmetic operators (+-*/) to form arithmetic 
expressions. The Assembler evaluates expressions from left 
to right without regard to precedence or operator heirarchy. 
A fractional result, if obtained during the evaluation of an 


expression, is truncated to an integer value. 

Example: 

3/2 + 1 = 1 + 1 = 2 
Macro Call Argument Lists 

Macros are passed arguments by placing the arguments 
in the operand field separated by commas. The actual 
arguments are substituted as character strings into the posi- 
tions'of the corresponding dummy arguments in the macro 
definition. If comments are to be included in the statement, 
a comma must follow the last argument. 

Evaluation of Symbols and Expressions 

Because of the two pass nature of the Assembler, only 
one level of forward referencing is legal in the use of 
symbols and expressions in the operand field of source 
statements. 

Comment Field 

A comment field may be included in a source statement 
as long as it is separated by at least one space from the 
operand field. However, when a comment is included on a 
macro call statement, the last macro argument must be 
followed by a comma. 


Addressing Modes 

Dual Operand 

These instructions require two operands in the operand 
field. The first operand must always reference either the 
A or B accumulator and is separated from the second 
operand by at least one space. The second operand is 
formed in accordance with the rules for Direct, Extended, 
Immediate, or Indexed addressing. 

Accumulator 

These instructions reference only one operand in the 
operand field; this operand is always either the A or B ac¬ 
cumulator represented by the single character “A” or “B”. 

Inherent 

These instructions require no operands, as the informa¬ 
tion needed is implied by the instruction itself. 

Indexed 

These instructions reference the Index register X. The 
operand field of the instruction is evaluated and placed 
in the second byte of the instruction. When the instruction 
is executed the contents of this byte are added to the Index 
register to form the complete address. The format is: 

I number \ 

symbol V , X 

expression ) 

where number, symbol, or expression evaluates to a value 
between 0 and 255. If a larger value is generated only the 
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low order eight bits are used. 
Examples: 

5, X 

TEST, X 
G + 55, X 


Immediate 

For these instructions the actual value of the operand is 
placed in the object code itself following the instruction 
machine code. The Immediate mode of addressing is indi¬ 
cated by preceding the operand with a pound sign (#). The 
format is: 


# 


number 
symbol 
expression 
^ ASCII string 


Examples: 


#100 

#TEST 

#’ABC 


Relative 

These two byte instructions are always branch instruc¬ 
tions. The branch address is taken relative to the current 
contents of the Program Counter. The second byte contains 
a signed number in two’s complement notation that specifies 
the relative branch address. The address of the destination 
of the branch must be in the range of -126 to +129 relative 
to the address of the first byte of the branch instruction. 
The format is: 

( number 
symbol 
expression 

Direct and Extended 

For those instructions that allow it, the Assembler will 
select the Direct mode of addressing if the evaluated 
operand address is in the numerical range of 0 to 255, 
provided that the evaluated address is not relocatable or 
common. In these cases the Extended mode will be selected. 
The Direct mode generates two bytes of machine code: the 
second byte contains the eight bit address in unsigned 
binary; the upper 8 bits of the sixteen bit address are as¬ 
sumed to be zeroes. If the evaluated operand is greater than 
255 (ie: Extended mode is used) then the Assembler gener¬ 
ates three bytes of machine code. The second and third 
bytes contain the sixteen bit unsigned binary address. The 
source language format is: 

number 
symbol 
expression 


Address Type Formats 

There are nine basic address type formats which employ 
Immediate, Direct, Extended, Relative, Indexed, Accumu¬ 


lator (ACCX), or Inherent modes of addressing. In the 
formats given below, the bracket symbols j ^ indicate that 
any one of the enclosed items may be chosen for the 
position indicated (but only one). In addition, the symbol $ 
will be used to indicate that one or more blanks must 
appear in that position. All 6800 instructions which use 
the format are shown at the left in these examples. 


Address Type 1 

Immediate mode (two bytes): 





Direct mode (two bytes) or Extended mode (three 
bytes): 


( ADC 

ADD 

AND ' 

1 

M 

1 

' number \ 

< BIT 

CMP 

LDA 

> 0 ■ 

M 

M 

symbol > 

( 

(ora 

SBC 

SUB , 

1 


i 

expression 1 


Indexed mode (two bytes): 


( ADC 

ADD 

AND 'l 



I 

' number \ 

J BIT 

CMP 

LDA 

, tf • 

1 B 

n 

symbol > 

(ora 

SBC 

SUB 

1 


i 

^ expression j 


Address Type 2 

Extended mode (three bytes) or Direct mode (two 
bytes): 


STA 


0 




Indexed mode (two bytes): 


STA 



0 


number 

symbol 

expression 


,X 
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Address Type 3 

Accumulator mode (one byte): 


ASL 

ASR 

CLR 

COM 'l 

1 

DEC 

INC 

LSR 

NEG 

1 * 

ROL 

ROR 

TST 


( 


A 

B 


Indexed mode (two bytes): 


( CPX ' 

1 1 

number \ 

LDS 1 

> 14 

symbol > 

V LDX 

1 J 

k expression ) 


,X 


Extended mode (three bytes): 


ASL 

ASR 

CLR 

COM 'j j 

^ number 

DEC 

INC 

LSR 

NEG > 14 

symbol 

ROL 

ROR 

TST 

) 1 

[ expression 


Address Type 6 

Direct mode (two bytes) or Extended mode (three 
bytes): 

STX 


STS 


0 



Indexed mode (two bytes): 


( ASL 

ASR 

CLR 

COM ' 

1 

number 


'six; 

(4 

i < 

number | 

< DEC 

INC 

LSR 

NEG 

-14 ( 

symbol 

■ ,x 

! sts ! 

symbol > 

( ROL 

ROR 

TST 

! 


^ expression ; 




^ expression J 


,X 


Address Type 4 

Accumulator mode (one byte): 

d * n 


PUL 


B 


Address Type 5 

Immediate mode (three bytes): 
CPX 

I 

!4 




Address Type 7 

Extended mode (three bytes): 

JMP ) ( number 


JSR 


symbol 

expression 


Indexed mode (two bytes): 

JMP 


JSR 


14 



,x 


Direct mode (two bytes) or Extended mode (three 
bytes): 




Address Type 8 

Relative mode (two bytes): 

BCC BCS BEQ BGE BGT 


BHI BLE BLT 
BSR BVC BVS 


BMI BRA>(4 
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Address Type 9 


Inherent mode (one byte): 

ABA CBA CLC CLI 

CLV 

DAA 

DES 

DEX 

INS 

INX 

NOP 

RTI 

RTS 

SBA 

SEC 

SEI 

SEV 

SWI 

TAB 

TAP 

TBA 

TPA 

TSX 

TXS 

WAI 


Pseudo Instructions 

In this section, the set of “pseudo instructions” which are 
defined for this Assembler are described. A pseudo instruc¬ 
tion (sometimes called a pseudo operation or “pseudop”) 
gives instructions to the Assembler itself, not to the ma¬ 
chine. Often a pseudo instruction results in no object code 
generation. Sometimes data is allocated with or without 
initial values. Pseudo operations are also differentiated from 
Macro instructions in that a Macro is user defined while the 
pseudo operation is defined by the Assembler. 

CMN 

This is used to reserve (declare) an area in Common 
for interprogram data communication. The syntax is: 

{ number \ 
symbol > 
expression I 

The second operand is evaluated and the value obtained is 
used to reserve that amount of bytes in the Common area. 
The CMN must not be labeled. 

END 

This terminates a program. It marks the physical end 
of the source language program. The last statement of a 
program must be an END statement. The END statement 
must not be written with a label, generates no object code, 
and has no operand. 

ENT 

This is used to declare an “entry point”, a symbol that 
may be referenced by separately assembled programs. The 
syntax is: 

ty ENT # symbol 

This statement must not be labeled and the operand field 
must contain a symbol that is defined elsewhere in the 
program. 

EXT 

This is used to declare an “external reference”, a symbol 
which may be referenced by the program but which is 
defined in some other program. The syntax is: 


$ EXT $ symbol 

This statement must not be labeled. The symbol in the 
operand field must be declared by an ENT statement in 
the program in which it is defined.. 

EQU 

This assigns to a symbol a value other than the value 
normally assigned by the Program Location Counter. 
The syntax is: 

{ number \ 
symbol y 
expression 1 

The EQU statement must be labeled. Symbols appearing 
in the operand field must be previously defined in the 
source program. This pseudo instruction generates no 
object code. 

FCB 

This generates one byte of object code. An eight bit 
unsigned binary number corresponding to the value of the 
operand is stored in the object code. The format is: 

{ number ) 
symbol > 
expression I 

If the operand evaluates to a value larger than 255, only 
the least significant eight bits will be used. The FCB pseudo 
instruction may be labeled. 

FCC 

This translates strings of characters into their seven bit 
ASCII code. The format is: 

[label] 0 FCC \j> ASCII string 

The ASCII string is text enclosed between apostrophes. 
If an apostrophe is needed in the text it is represented by 
two apostrophes; however, only one will be put into the 
object code. This statement may be labeled. 

FDB 

This generates two bytes of object code. A sixteen bit 
unsigned binary number corresponding to the value of the 
operand is stored in the object code. The format is: 

{ number ) 
symbol > 
expression I 

This statement may be labeled. 

IF 

This is used to cause the Assembler to process the 
following code normally if the value of the operand is 
not zero; but the Assembler is to ignore all source state¬ 
ments until a matching NIF statement is encountered if 
the value of the operand is zero. The format is: 
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{ number ) 
symbol > 
expression J 

The IF pseudo instruction must not be labeled but must 
have an operand. This implements the simplest form of 
conditional assembly and can be used either within or inde¬ 
pendent of a Macro. 


{ number ) 
symbol \ 
expression ( 

This statement may be labeled. The block of memory 
reserved is cleared to zeroes. Symbols used in the operand 
field must have been previously defined in the program. 


MAC 

This is used in the definition of a Macro. All statements 
following the MAC instruction up to the next MEND 
are stored in the Macro Table as a Macro definition. The 
syntax is: 

label \j> MAC [C] 

A label is required on the MAC statement. The label is the 
symbol (its name) by which a Macro is expanded or called. 
The operand field may contain a "C”; the “C” is used to 
specify whether or not comment lines in the Macro def¬ 
inition are to be stored in the Macro Table. A “C” in the 
operand field indicates that all comment lines are to be 
included in the expansion of the Macro. By omitting the 
“C”, the user can lower the main memory requirements 
needed to store the Macro definition. Macro definitions 
may not be nested but may contain calls to other Macros. 

MEND 

This indicates the end of a Macro definition. It must not 
have a label or an operand. 


NAM 

This names the program. The syntax is: 

I i> NAM \j> symbol 

The symbol in the operand field is passed to the Linking 
Loader as an Entry point. It must not be used as a label 
elsewhere in the program. A NAM pseudo instruction must 
be included in each program as the first statement. 


NIF 

This is used as a terminator to an IF pseudo operation. 
It must be unlabeled and has no operand. 


PAG 

This causes the listing device to advance to the top of 
the next page. This statement does not appear on the list¬ 
ing, causes no object code to be generated, and must be 
unlabeled. 


RMB 

This reserves a block of memory whose length -is the 
value of the operand. The syntax is: 


Example 1: A Macro Prototype 


line 1 

LOOP MAC C 


line 2 

LDX #$&0 

LOAD X WITH ARGUMENT 0 

line 3 

LDA B #$&1 

LOAD B WITH ARGUMENT 1 

line 4 

* 

line 5 

DEX 

X: = X—1 

line 6 

BNE »-1 

X .ne.0 

line 7 

* 


line 8 

DEC B 

B: = B—1 

line 9 

BNE *—5 

B .ne. 0 

line 10 

* 


line 11 

RTS 

ALL DONE 

line 12 

MEND 



Line 1 is the header. It names the Macro as LOOP and specifies 
that comment lines in the body are to be stored with the 
Macro definition in the Macro Table. 

Lines 2 and 3 are source statements with substitutable argu¬ 
ments (parameters) in the variable field (&0, &1). A 
parameter is recognized by the presence of the amper¬ 
sand. The digit after the is the argument number. 
Ten arguments is the maximum number of arguments 
allowable in a single Macro, numbered 0 thru 9. 

Lines 4 thru 11 make up the rest of the prototype body. 

Line 12 is the termination line. 

Lines 2 thru 11 are stored in the Macro Table by the Assembler 
for later use. If the "C" had not been on the header 
statement, lines 4, 7 and 10 would not have been saved. 

The Macro name "LOOP" is stored in the Symbol 
Table with a pointer to the location of the Macro def¬ 
inition in the Macro Table. 

A typical reference to the Macro "LOOP" might be: 

LABEL LOOP 1000,12 

This would expand into the following: 

LDX #$1000 LOAD X WITH ARGUMENT 0 
LDA B #$12 LOAD B WITH ARGUMENT 1 


DEX 
BNE *-1 


X : = X —1 
X .ne.0 


DEC B 
BNE *—5 


B:B—1 
B.ne.0 


RTS ALL DONE 

The argument "1000" is substituted for &0, and the argu¬ 
ment "12" is substituted for &1. 


Example 7: An example of a Macro prototype and a ref¬ 
erence to the Macro. 
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Macros 

Macros are sections of code which are defined once 
at the beginning of a program and used and referenced by 
a mnemonic code (with or without parameters) in the rest 
of the program. 

Usually the code one places in a macro consists of 
statements that are repeated many times at different places 
throughout a program. Macros provide a shorthand nota¬ 
tion for repeating these sections of code. 

The statements of any given Macro are grouped in one 
place at the beginning of the program. This “Macro defini¬ 
tion” is preceded by the MAC pseudo instruction and 
followed by a series of instructions, and finally the MEND 
pseudo instruction. The Macro is named by placing the 
name in the label field of the MAC statement. The Macro 
is called by placing the name of the Macro in the opcode 
field of a statement, and any parameters to be passed to the 
Macro are placed in the operand field separated by commas. 

The expansion of a Macro is sometimes thought of as 
an open subroutine in that it produces the same inline 
code every time. The inline code is inserted in the normal 
flow of the program so that the generated statements are 
assembled with the rest of the program. [Unlike a conven¬ 
tional subroutine, the open subroutine is repeated every 
time it is used without a call and return linkage ... Carl 
Helmers./ 

The Macro definition is also known as the prototype. 
The source statements included in the prototype may be 
any legal Assembler or processor instruction except for 
another MAC pseudo operation. 

Macro prototypes are of the form: 


header label MAC [C] 

body . | any statements 

termination MEND 

Where: 


label is the name of the Macro; 

“C” is an optional operand to control the storing of 
comment lines along with the prototype body; 

body is the sequence of source statements; 

termination is the line containing the pseudo instruction 
MEND. 

MEND is recognized by the Assembler as the end of the 
Macro definition. 


Program Linkage 

Linking pseudo instructions are used to provide a means 
of communications between a main program and its sub¬ 
routines, or among several subprograms that are to be 
linked together to run as a single program. 


Common 

{ number 
symbol 
expression 

CMN reserves a block of storage locations that may be 
used in common by several programs. Each symbol (the 
first operand) identifies a segment of the block for the sub¬ 
program in which the CMN statement appears. The second 
operand is the length of the related segment. 

Any number of CMN statements may appear in a sub¬ 
program. Storage locations in Common are assigned contig¬ 
uously. The length of the Common block is equal to the 
sum of the lengths of all segments named in CMN state¬ 
ments in the subprogram. 

To refer to the Common block, other subprograms must 
also include a CMN statement. The segment names and 
lengths may be the same or they may differ. Regardless 
of the names and lengths specified in the separate sub¬ 
programs, there is only one Common block for the com¬ 
bined set of programs. It has the same relative origin; the 
content of the nth byte of Common storage is the same 
for all subprograms. Thus a key part of designing a large 
user software system is allocation and definition of the 
common variables used to communicate between sep¬ 
arate modules. 

The segment names that appear in the CMN statements 
can be used in the operand fields of EQU, FDB, or any 
memory reference statement; they may not be used as 
labels elsewhere in the program. All references to Common 
are relocatable. 

The user establishes the origin of the Common block 
when the Linking Loader is executed. 

Note that two or more subprograms may declare Com¬ 
mon blocks that differ in size, although example 2 shows 
the same size for both programs. 


Entry 

$ ENT $ symbol 

ENT defines entry points to the program or subprogram. 
Symbol is an assigned label for some statement in the pro¬ 
gram. Entry points allow another program to refer to 
the program in which the ENT occurs. All entry points 
must be defined in the program. 


External 

# EXT \j> symbol 

EXT designates labels in other programs that are refer¬ 
enced in this program. Symbol must be defined by an ENT 
in some other program. 

The CMN pseudo operation is provided to allow data 
communication and the EXT and ENT pseudo instructions 
are provided to allow control communication between 
separately assembled or compiled subprograms that are 
linked together to form a single program to be executed 
as a unit. 
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The following Macro prototypes may be useful to the pro¬ 
grammer. Each was designed with a special purpose in mind, such 
as an arithmetic operation on a 16 bit integer quantity. 

To increment a 16 bit quantity, the following Macro could be 
used: 

INC16 MAC 

INC &0+1 
BNE *+5 
INC &0 
MEND 

Here there is only one parameter, &0. When the Macro is refer¬ 
enced^ parameter would be included as in the statement: 

INC16 AAA 

This would generate the instructions needed to increment 
variable AAA by one: 

INC AAA+1 

BNE *+5 

INC AAA 

Similar Macro prototypes, a sample reference, and the code 
generated by that reference are given below. Note that in these 
examples, the macros PSHX, PULX, PSHREG and PULREG use 
self-modifying code techniques and will not work if a program 
using them is stored in read only memory. 

To decrement a 16 bit quantity: 

Sample reference followed by 

Prototype: generated code: 

DEC16 MAC DEC16 BBB 

TST &0+1 TST BBB+1 

BNE *+5 BNE *+5 

DEC &0 DEC BBB 

DEC &0+1 DEC BBB+1 

MEND 


To add two 16 bit quantities together, placing the sum into a 
third 16 bit variable (note that 3 parameters are needed): 

Sample reference followed by 
Prototype: generated code: 

ADD16 MAC 

LDA A &0+1 ADD16 AAA,BBB,CCC 

LDA B &0 LDA A AAA+1 

ADD A &1+1 LDA B AAA 

ADC B &1 ADD A BBB+1 

STA A &2+1 ADC B BBB 

STA A &2 STA A CCC+1 

MEND STA A CCC 


To subtract two 16 bit quantities, placing the difference into 
the first 16 bit variable: 

Sample reference followed by 
Prototype: generated code: 


To push the X register onto a stack: 

Sample reference followed by 

Prototype: generated code: 

PSHX MAC 

DES PSHX 

DES DES 

STS *+4 DES 

STX *+1 STS *+4 

MEND STX *+1 

To pull the X register off of the stack: 

Sample reference followed by 

Prototype: generated code: 

PULX MAC 

STS *+4 PULX 

LDX *+1 STS *+4 

INS LDX *+1 

INS INS 

MEND INS 

To push the X, A, and B registers onto a stack (note the nested 
Macro reference): 

Sample reference followed by 

Prototype: generated code: 

PSHREG MAC 

PSHX PSHREG 

PSH A PSHX 

PSH B DES 

MEND DES 

STS *+4 

STX *+1 

PSH A 

PSH B 

To pull the B, A, and X registers off of the stack (again, note 
the nested Macro reference): 

Sample reference followed by 

Prototype: generated code: 

PULREG MAC 

PUL B PULREG 

PUL A PUL B 

PULX PUL A 

MEND PULX 

STS *+4 

LDX *+1 

INS 
INS 


SUB16 MAC 

LDA A &0+1 SUB16 AAA,BBB,AAA 
LDA B &0 LDA A AAA+1 

SUB A &1+1 LDA B AAA 

SBC B &1 SUB A BBB+1 

STA A &2+1 SBC B BBB 

STA B &2 STA A AAA+1 

MEND STA B AAA 
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Example 2: This example shows the linkage of two external 
routines via the Common Block. The Common Block lay¬ 
out shows the locations of the symbolic terms defined in 
PR0G1 and PR0G2 within the block. Note that the LDA 
A instruction in both routines refer to the same COMMON 
block byte. 



Example 2: A Common Block and Its References 

NAM 


PROG1 


CMN 


AAA,5 

ALLOCATE 5 BYTES OF COMMON 

CMN 


BBB.10 

ALLOCATE 10 BYTES OF COMMON 

CMN 


CCC.10 

ALLOCATE 10 BYTES OF COMMON 

LDA 

A 

BBB+1 

LOAD BYTE 2 OF SEGMENT BBB 

END 




NAM 


PROG2 


CMN 


DDD,2 

ALLOCATE 2 BYTES OF COMMON 

CMN 


EEE,2 

ALLOCATE 2 BYTES OF COMMON 

CMN 


FFF,1 

ALLOCATE 1 BYTE OF COMMON 

CMN 

• 


GGG,20 

ALLOCATE 20 BYTES OF COMMON 

LDA 

• 

A 

GGG+1 

LOAD BYTE 2 OF SEGMENT GGG 

• 

END 






Example 3: Entry Points and External References 

Here we show two programs which refer to symbols in each 
other using ENT and EXT pseudo operations to establish 
linkages. 


NAM PROG1 



ENTSUB1 

ENT SUB2 

DEFINE SUB1 AS AN ENTRY POINT 
DEFINE SUB2 AS AN ENTRY POINT 

SUB1 

LDX #$0000 



RTS 


SUB2 

LDA B#'C 



RTS 

END 



NAM PROG2 
EXTSUB1 

EXT SUB2 

DEFINESUB1 AS EXTERNAL 

DEFINE SUB2 AS EXTERNAL 


JSR SUB1 

JSR SUB2 

END 

CALL SUB1 IN PROG1 

CALL SUB2 IN PROG2 


The memory layout of this common block shows the different 
symbols applied to corresponding bytes in PROG1 and PROG2: 

COMMON BLOCK 


PROG1 PROG2 


0 

AAA 

DDD 

1 

AAA 

+ 

1 

DDD 

+ 

1 

2 

AAA 

+ 

2 

EEE 

3 

AAA 

+ 

3 

EEE 

+ 

1 

4 

AAA 

+ 

4 

FFF 

5 

BBB 

GGG 

6 

BBB 

+ 

1 

GGG 

+ 

1 

7 

BBB 

+ 

2 

GGG 

+ 

2 

8 

BBB 

+ 

3 

GGG 

+ 

3 

9 

BBB 

+ 

4 

GGG 

+ 

4 

10 

BBB 

+ 

5 

GGG 

+ 

5 

11 

BBB 

+ 

6 

GGG 

+ 

6 

12 

BBB 

+ 

7 

GGG 

+ 

7 

13 

BBB 

+ 

8 

GGG 

+ 

8 

14 

BBB 

+ 

9 

GGG 

+ 

9 

15 

CCC 

GGG 

+ 

10 

16 

CCC 

+ 

1 

GGG 

+ 

11 

17 

CCC 

+ 

2 

GGG 

+ 

12 

18 

CCC 

+ 

3 

GGG 

+ 

13 

19 

CCC 

+ 

4 

GGG 

+ 

14 

20 

CCC 

+ 

5 

GGG 

+ 

15 

21 

CCC 

+ 

6 

GGG 

+ 

16 

22 

CCC 

+ 

7 

GGG 

+ 

17 

23 

CCC 

+ 

8 

GGG 

+ 

18 

24 

CCC 

+ 

9 

GGG 

+ 

19 


Example 3: This example shows some of the linkage pos¬ 
sible between external routines using the ENT and EXT 
pseudo instructions. The routine PROG1 is shown here 
with two entry points, SUBJ and SUB2. PROG2. defines 
these labels as EXTernal and references them with a jump 
instruction .■ 
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The Assembler 


Assembler Modules Overview 


With this section a detailed description of the inner 
workings of the Assembler begins. As stated previously, 
this is a two pass assembler: pass 1 is used to determine 
values and resolve all references (labels, externals, etc.); 
pass 2 generates and outputs relocatable machine code, 
prints listings and messages. This is all controlled from the 
main program module MAIN1. 


Main 


MAIN1 is the driving section or top level of the Assem¬ 
bler. It is in one of two logical states, Pass 1 or Pass 2. The 
state is reflected in the value of system variable PASS. If 
PASS has the value hexadecimal 00 then the Assembler is 
executing Pass 1. If PASS has the value hexadecimal FF 
then the Assembler is executing Pass 2. 


Calls: 


Flags: 

Pointers: 

Temporaries: 

Buffers: 


ADRINT, LKPSYM, MACPSH, 
NXTOK, PRINTE, PRINTL, 
STOSYM 

IFFLG, LBFLG, MACFLG, PASS 

CUCHAR, CULINE, DESCRA, 

MACPTR 

MACSAV 

MACPAR 


MNLKP, 

RDLINE, 


DESCRC, 


Pass 1 of Main 

The purpose of this pass is to assign a location to each 
data defining pseudo operation and to each instruction and 
thus, to assign a value to labels (symbols) appearing in the 
label fields of the input source program. To facilitate this a 
Location Counter (LC) is kept. This counter contains the 
address of the first byte of the line currently being pro¬ 
cessed. The Location Counter is initialized to hexadecimal 
0000 at the beginning of Pass 1 and is incremented at the 
end of the processing of an instruction. The value of the in¬ 
crement is equal to the number of bytes the instruction just 
processed requires. 

Pass 1 proceeds by reading a line of source code from 
the input file. The label field is then scanned to see if there 


is a label present. If there is, the label (symbol) is stored in 
the Symbol Table (SYMTAB) along with the value of the 
Location Counter. 

The next field scanned is the opcode field. A search of 
the Mnemonic Table (MNTAB) is done to find the address 
of the processing routine that handles the mnemonic op¬ 
code found. MNTAB contains this address along with part 
of the machine code for processing the opcode. The rest 
of the machine code is calculated by the processing routine. 
For the pseudo operations the machine code part of the 
entry in MNTAB is ignored. 

When a mnemonic opcode is found in MNTAB, the ad¬ 
dress of the processing routine is extracted, the partial ma¬ 
chine code is loaded into a register, and control is passed to 
the processing routine for the mnemonic found. 

If the search of MNTAB was unsuccessful in locating the 
particular opcode, a search of the Symbol Table (SYMTAB) 
is made to see if the mnemonic is the name of a Macro. 

If the mnemonic is a Macro call then the value of 
the symbol found in the Symbol Table is the address of 
the Macro definition in the Macro Table (MACTBL). A 
flag (MACFLG) is set and control is passed back to the 
main loop. This switches the pointers so that lines of 
source code now come from the Macro Table rather than 
from the input file. When the end of the Macro is identi¬ 
fied, MACFLG is cleared and the lines of source code 
come once again from the input file. 

Because the number of bytes that an operation or 
pseudo instruction requires is dependent on the operand 
field, PASS1 must evaluate the operand field to determine 
the increment that is to be added to the Location Counter. 

When processing is complete for that opcode, control is 
passed back to the main program loop and another line of 
source code either from the input file or Macro Table is 
read and processed. When the pseudo instruction END is 
encountered, PASS1 finishes up by requesting that the in¬ 
put source file be rewound and jumping to PASS2. 

Pass 2 of Main 

The purpose of PASS2 is to generate and output the ma¬ 
chine code, print listings (if selected by the user) and print 
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any error messages found in the input source program. 
(PASS1 also prints some error messages.) 

PASS2 proceeds through the same main loop as PASS1; 
however, when control is passed to the processing routines, 
they calculate the machine code and output it, whereas 
PASS1 did not. As noted earlier the Assembler can tell 
what pass it is executing by testing the one byte flag 
called PASS. 

The output listing is unbuffered and is printed line by 
line after a statement is processed. 

When the END pseudo instruction is encountered in 
the source code the Assembler writes out any machine code 
that is in the output buffer, prints the Symbol Table (if 
that option was selected by the user), and terminates by 
passing control back to the system monitor. 



Mnemonic Table (MNTAB) 

MNTAB is the table that contains the valid machine 
mnemonics and pseudo instructions recognized by the 
Assembler. Each entry in the table is six bytes long. The 
format is: 


CCCXXY 

where: 

CCC = 3 byte mnemonic; 

XX =2 byte address of the processing routine for 
this instruction; 

Y = 1 byte part of the machine code for this in¬ 

struction. The other part of the machine 
code is calculated by the processing routine 
in PASS2. This field is ignored by the pseu¬ 
do operation processing routines. 


Symbol Table (SYMTAB) 

SYMTAB is the symbol table and is maintained with ac¬ 
cess by means of a hash code. Each entry is 9 bytes long. 
The format is: 


CCCCCCXXF 


XX 

F 


CCCCCC = 6 byte symbol. If a symbol is less than 6 

bytes long, blanks are inserted on the right. 
= 2 byte address or value of the symbol. 

= 1 by te of flags, 

bit 7 Redefined flag 

bit 6 Relocation flag 

bit 5 Macro flag 

bit 4 Common flag 

bit 3 External flag 

bit 2 Entry flag 

bit 1 Reserved for future use 

bit 0 Reserved for future use 


If a bit is set (1) it means that the associated symbol has 
that bit position’s attribute. If the symbol is a Macro, the 
XX above is the address location of the Macro definition 
in the Macro Table (MACTBL). The length of SYMTAB is 
calculated based on the length of the Assembler and the ' 
Macro Table. It is approximately 4 K bytes long, enough 
for over 300 symbols. This length can be changed by modi¬ 
fying the Symbol Table initialization routine in the main 
program of the Assembler. 


PASS 7 and PASS2 initialization. ADDR(Y) indi¬ 
cates the address of item Y. 


Tables 

There are four tables used by the Assembler: MNTAB, 
SYMTAB, CHRTB, and MACTBL. 

MNTAB AND CHRTAB are permanent tables and 
SYMTAB AND MACTBL are constructed by the Assem¬ 
bler. 


Character Table (CHRTAB) 

CHRTAB is used by the lexical analysis routines to 
facilitate the classification of characters. Each recogniz¬ 
able ASCII character value hexadecimal 20 to 5F is in the 
table. 

The table is indexed by using the value of the ASCII 
character plus the base address of the table. 

The definition of the individual bits in the single byte 
entry are: 

bit 7 Alpha character 

bit 6 Numeric character 

bit 5 Arithmetic operator 
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bit 4 

Location separator 

LDX 

— (pointer to parameter list) — 

bit 3 

Mnemonic separator 

JSR 

COMPAR 

bit 2 

Operand separator 

BNE 

NOMATCH taken if string 1 is not equal to 

bit 1 

Hexadecimal character 


string 2 

bitO 

A, B, or X register character 

BEQ 

MATCH taken if string 1 equals string 2 


Macro Table (MACTBL) 

The Macro Table (MACTBL) is the location where the 
actual Macro definition code is stored. The size of 
MACTBL is approximately 2 K bytes. Its organization is 
free form; ie: one Macro could be anywhere from one in¬ 
struction to 2 K bytes long. A pointer in the Symbol Table 
keeps track of where the Macro definition begins, and an¬ 
other MAC pseudo instruction signals the end of the previ¬ 
ous Macro definition. The length of the MACTBL is a func¬ 
tion of the length of the Assembler, the length of the Sym¬ 
bol Table, and the overall length assumed required for exe¬ 
cution of the Assembler (16 K). This length can be modi¬ 
fied by changing the table initialization routine in the main 
program of the Assembler. 


Stacks 


If Stack (IFSTK) 

This is a stack used by the IF and NIF pseudo instruc¬ 
tion processing routines to allow the nesting of the IF and 
NIF pseudo instructions. Eight levels of nesting are allowed. 


Calls: 

Called By: 
Flags: 
Pointers: 
Temporaries: 


none 

MNLKP, POEND, POMAC, SYMCMP 
none 

Index Register 
XSAV 


CVHB 

This routine converts hexadecimal character strings into 
a sixteen bit binary value. When CVHB is called location 
DESCRA contains the address of the hexadecimal string, 
and location DESCRC contains the string length. The 
length cannot exceed four. The converted value is returned 
in the Index register. 

Calls: CVHBS 

Called By: NSEVL 

Flags: none 

Pointers: DESCRA, DESCRC 

Temporaries: HVAL 


CVHBS 


Macro Stack (MACSTK) 

This stack is used to allow the nesting of Macro calls. The 
number of allowed calls varies depending upon the number 
of parameters on each Macro. A maximum of 35 levels is 
possible if no parameters are on the nested calls. A mini¬ 
mum of about four levels is the limit if the maximum num¬ 
ber of parameters is used on each nested Macro call. Its 
actual length is 100 bytes. Note that while Macro defini¬ 
tions cannot be nested at all, expansions can be nested 
within these limits when one Macro references another 
Macro within its definition. 

Utility Routines 

These utility routines perform comparisons, additions, 
conversions, etc., as needed by other routines. They operate 
on numeric or alphabetic data depending on their specific 
function. 

COMPAR 


This routine is used by the CVHB routine to convert an 
ASCII hexadecimal character to binary. On entry the Index 
register points to the character and on return the A register 
contains the binary value. 

Calls: none 

Called By: CVHB 


CVDB 

This routine converts decimal character strings into a six¬ 
teen bit binary value. When CVDB is called location 
DESCRA contains the address of the string and location 
DESCRC contains the length. The length cannot exceed 
five. The converted value is returned in the Index register. 

Calls: MPY16 

Called By: NSEVL 

Pointers: DESCRA, DESCRC 

Temporaries: DCOUNT, DVAL, DXSAV, TENVL 


This routine is used to compare variable length charac¬ 
ter strings or variable length byte strings. The string lengths 
can be up to 255 bytes. When COMPAR is called the Index 
register X points to a parameter list of 5 bytes: 

Bytes 1,2.Address of first string 

Bytes 3, 4.Address of second string 

Byte 5.Number of bytes to be compared. 

On returning from COMPAR the result of the compari¬ 
son is reflected in the 6800’s condition codes register. For 
example, atypical call might look like the following: 


CVBTD 

This routine converts a sixteen bit binary value into a 
five character decimal string. On entry, registers A and B 
contain the sixteen bit binary value to be converted and the 
Index register points to an area of storage where the con¬ 
verted string is to be stored. 

Calls: none 

Called By: POEND, PRINTE 

Pointers: Index register 

Temporaries: SAVEA, SAVEX, SAVEX1 
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ADD16 


This routine adds together two unsigned sixteen bit 
values. On entry, the Index register points to a four byte 
area of storage that contains the values to be added to¬ 
gether. Bytes 1 and 2 are added to bytes 3 and 4 and the re¬ 
sult is stored in bytes 1 and 2. 

Calls: none 

Called By: GCHRTB, HASH, MNLKP, NSEVL 

SUB16 

This routine subtracts two unsigned sixteen bit values. 
On entry, the Index register points to a four byte area of 
storage that contains the values to be subtracted. Bytes 3 
and 4 are subtracted from bytes 1 and 2 and the result is 
stored in bytes 1 and 2. 

Calls: none 

Called By: NSEVL 

MPY16 

This routine multiplies two unsigned sixteen bit values. 
On entry, the first value is in registers A and B and the sec¬ 
ond value is in the two bytes pointed to by the Index regis¬ 
ter. 

The result is truncated to sixteen bits and returned to 
registers A and B. 

Calls: none 

Called By: CVDB, HASH, MNLKP, NSEVL 


POCMN, POEND, POENT, POEQU, POEXT, 
POFCB, POFCC, POFDB, POIF, POMAC, 
PONIF, PORMB 

Flags: MACFLG, OPTNS, PASS 


OUTL 


This routine does the actual printing of the listing. On 
entry, the following system global values are used to format 
the listing: 


MCOUNT 

POP 


OPCD 

ADR1.ADR2 

LINEN 

MACFLG 

CMNFLG 

RELFLG 

ENTFLG 

EXTFLG 


Number of bytes of machine code (0, 1, 
2, or 3) 

Pseudo instructions to be printed 0,1, or 
2 bytes. 

Opcode in hexadecimal to be printed 

Second and third bytes of machine code 

Line number 

Macro mode flag 

Common flag 

Relocatable flag 

Entry flag 

External flag 


For all flags, hexadecimal 00=no, and FF=yes 


Calls: OUT2HS, OUT4HS, OUTCHR, PDATA1, 

PRINTL 
Called By: PRINTL 

Entries: OUTL7A (from PRINTE) 


PRINTE 


DIV16 

This routine divides two unsigned sixteen bit values. On 
entry, the dividend is in registers A and B and the divisor is 
in the two bytes pointed at by the Index register. The result 
is placed into registers A and B, and the remainder is re¬ 
turned in the Index register. 

Calls: none 

Called By: HASH, NSEVL 


Listing Routines 

The following section includes routines used to output 
print lines for listings and messages in their proper formats 
(see listings 1 and 2). These routines utilize the input and 
output routines outlined in the section Input and Output 
Routines to do the actual detail 10 functions. 

PRINTL 

This routine checks the options byte during Pass 2 to see 
if the L option and the M option have been selected. 
PRINTL calls routine OUTL to print a line of listing if the 
L option has been selected. PRINTL also checks to see if 
the Assembler is in the Macro mode; if it is, it checks the M 
option to see if expansion lines from macros are to be 
listed. 

Calls: LINCK, OUTL, SPACER 

Called By: ADDR9, LCNAB1, LCN2, LCN3, MAIN, 


This routine prints error messages on the system console. 
Error messages are always printed as the errors occur during 
both PASS1 and PASS2. On entry, the Index register con¬ 
tains the error number in a binary coded decimal format. 
The routine prints the error number and the source line 
that caused the error, then increments the error count in 
ECOUNT. This count is printed at the very end of the 
assembly. 

Calls: CVBTD, OUTL7A, PDATA1 

Called By: ADDRI-5,7,8, INXCK, LBLCK, MACMOV, 

MAIN, POCMN, POEND, POENT, POEQU, 
POEXT, POFCB, POFCC, POFDB, POMAC, 
PONAM, PORMB, P2ERR, RDMAC, 
STOSYM 
Pointers: ECOUNT 

Temporaries: ERNUM 

LINCK 

This routine is called to make sure that the output listing 
is formatted into pages of 60 lines each. If the line count 
(LCOUNT) is equal to zero, the system console is spaced to 
the top of the next page. 

Calls: SPACER 

Called By: POEND, PRINTL 

Pointers: LCOUNT 

SPACER 

This routine performs the above spacing and also prints a 
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Listing 1: Output listing format. A sample of the Assembler 
listing option showing the format of a program listing. 


Listing 2: Symbol table listing format. A sample of the 
Assembler listing option showing the format of a symbol 
table listing. 


(7) Columns 1 to 4; line number generated by the Assembler. 

( 5 ) Column 5; plus sign (+) if this line is a Macro expansion, blank 
otherwise. Column 6; blank. 


© Columns 1 thru 6; the symbol name. Column 7; blank. 

(5) Columns 8 thru 11; the hexadecimal address at which the 
symbol is defined. Column 12; blank. 


(D Columns 7 thru 10; the hexadecimal memory location. Column 
11; blank. 


( 3 ) Column 13; the symbol type: Relocatable (R), Macro (M), 
Entry (E), External (X), or Common (C). 


( 4 ) Columns 12 and 13; the hexadecimal operation code. Column 
14; blank. 

( 5 ) Columns 15 thru 18; the operand, either 2 or 4 hexadecimal 
characters. Column 19; blank. 

(i) Column 20; type indicator: Relocatable (R), Macro (M), 
Entry (E), External (X), or Common (C). Column 21; blank. 


(3) This line of periods acts as a logical page separator. It is repeated 
every 66 lines, preceded by 3 blank lines and followed by 2 
blank lines. Thus there are 60 lines of table entries possible 
per page. This page separator is provided for those whose 
printers use roll paper, and will result in 11 inch pages if line 
spacing is 66 lines per inch. 


( 7 ) Columns 22 thru 72; the first 51 characters of the source state¬ 
ment. Note that the source statement is not reformatted. 


(§) This line of periods acts as a logical page separator. It is repeated 
every 66 lines, preceded by 3 blank lines and followed by 2 
blank lines. Thus there are 60 lines of code possible per page. 
This page separator is provided for those whose printers use 
roll paper, and will result in 11 inch pages if line spacing is 
66 lines per inch. 


( 5 ) If the Statement is a comment (designated in the source by an 
asterisk (*) in the first column of the source), then columns 1 
thru 5 (© and ( 5 ) above) are the same as above, columns 6 
thru 21 are blank/and columns 22 thru 72 are again the first 
51 characters of the source statement (in this case, the 
comment). 


MOV 

0V66 

CE 

093E 

R 

LUX 


#ENSIZ 

GET ENTRY LENGTH 


096V 

5A 



DEC 

B 


B«=IP-1 

1411 

096A 

BD 

OB7U 

R 

JSR 


MPYI6 

GET (IP-1)*6 

1412 

096U 

B7 

07 E 3 

R 

STA 

A 

PSTNGI 

SAVE 

M 1 3 

0V70 

F7 

07t4 

R 

STA 

B 

PSTNGI+1 


14 1 4 

0973 

CE 

0006 

R 

LUX 


#MNTAB 


M 18 

0976 

FF 

07E5 

R 

SIX 


PSTNG2 

PSTNG2 * = BASE OF MNTAB 

MI6 

0979 

CE 

07 E 3 

R 

LDX 


fPSTNGl 

POlNi TO PARMS 

MI7 

09 7C 

BO 

08EC 

R 

JSR 


ADDI6 

PSTNGI «= (IP-1 M6+MNTAB 

U lo 

0971- 

fe 

07E3 

R 

LUX 


PSTNGI 


Ml V 

0982 

FF 

07e8 

R 

SIX 


TBADD 

SAVE 


1420 * * 

1421 X * COMPARE MNEMONIC KITH ENTRY IN MNTAB 

1422. KL) * 




1 423 

0988 

FE 

027B R 



LUX 

DESCRA 

GET MNEMONIC ADDRESS 

M24 

0988 

FF 

Q7E5 R 



STX 

PSTNG2 

INIT PARM FOR COMPARE 

M25 

098B 

CE 

07c3 R 



LDX 

#PSrNGI 

POIN1 TO PARMS 

1 420 

098E 

BJ 

06C5 R 



JSR 

COMPAR 

COMPARE 

142 7 

0991 

28 

OB 



BCS 

MNLI 

ENTRY<MNEMONIC 

1428 

0993 

26 

11 



BNE 

MNMI 

ENTRY>MNEMONIC 

M2y 

1430 

0998 

4F 

VD 

* 


CLR 

A 

ENTRY FOUND 

M3 1 

0996 

FE 

07E8 R 



LUX 

TBADD 

POINT TO ENTRY 

1 432 

0999 

E6 

05 



LUA 

B 5,X 

GET MC 

1433 

0V9B 

EE 

03 



LUX 

3«X 

GET BRANCH ADDRESS 

1434 

099D 

39 




RTS 



14 38 
1436 



* 

* 

ENTRY<MNE1I0NIC LP»» 

IP 

1437 




* 





M38 

099E 

86 

093D R 

MNLI 

LDA 

A IP 


1 439 

OVA 1 

B7 

093B R 



STA 

A LP 


1 440 
M4I 

0VA4 

20 

A9 

* 


BRA 

MNLKPA 

TRY AGAIN 

1 442 




* 

ENfRY>MNEMONIC Mpi* 

IP 

1 443 




* 





1 444 

09A6 

86 

09 3D R 

MNMI 

LUA 

A IP 


1 448 

09A9 

B7 

093C R 



STA 

A MP 


1446 

09AC 

20 

A1 

\ 


BRA 

MNLKPA 

TRY AGAIN 


OUTS 1872 R 
P2ERR 1007 R 
P2ERRA I0E3 R 
P2ERRb I0E9 R 
PAGEA I 782 R 
PA GENU I713B R 
PASS 0278 R 
PASS1 038E R 
PASS2 0467 R 
P8LK2 I43D R 
PBLOCK 1438 R 
PBXS I 44F R 
PCOUN'r 07E7 R 
PUAXAr I85E RM 
PDATA2 185A R 
PLENU 0C2V R 
POCMN 11D4 R 
POCMNO I IE1 R 
POCMN l I1E4 R 
P0CMN2 I1E9 R 
h P()CMN3 122F R 



P0CMN4 

1246 

R 

POENU 

I24E 

R 

POENDO 

1254 

R 

P0END2 

1268 

R 

POENT 

I3D8 

R 

POENTI 

I3ED 

R 

POENT2 

1401 

R 

POENT3 

1426 

R 

POENT4 

1435 

R 

POEQU 

1451 

R 

POEXT 

MAC 

R 

POEXTI 

I4C4 

R 

POEXT2 

I4E0 

R 

POEXT3 

1508 

R 

POEXT4 

150B 

R 

POFCB 

150E 

R 

POFCC 

1543 

R 

POFUB 

159A 

R 

POIF 

15 EE 

R 

POIFA 

15FB 

R 

POIFB 

1603 

R 

POIFC 

1621 

R 

POIFE 

1626 

R 

POMAC 

I62E 

R 

POMACl 

I64F 

R 

P0MAC2 

1 66F 

R 

P0MAC5 

I68F 

R 

P0MAC6 

I6A1 

R 

POMAC7 

16D0 

R 

P0MAC8 

16CA 

R 

POMACA 

I6E0 

R 

PONAM 

1723 

R 

PONAMl 

1739 

R 

PONAM2 

1744 

R 

PON IF 

1758 

R 

POP 

0C66 

R 

POPAG 

I79D 

R 

PORMB 

I7BE 

R 
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series of periods that are at convenient 11 inch intervals 
(assuming 6 lines per inch) to allow the listing to be torn 
off and put into a page size notebook. 

Calls: PDATA1 

Called By: LINCK, PRINTL 


Mnemonic and Symbol Table Routines 

The following routines provide the table look-up, com¬ 
parison, and insertion functions necessary for maintenance 
of the Mnemonic and Symbol Tables. 

MNLKP 

This routine is used to search the Mnemonic Table 
(MNTAB). On entry, DESCRA points to the mnemonic 
opcode to be searched for, and DESCRC contains the 


length of the mnemonic opcode (3). On return register A 
contains a return code. Hexadecimal FF is the return code 
if the mnemonic is not in MNTAB. Hexadecimal 00 is the 
return code if the mnemonic is in the table, and on return 
register X contains the processing routine’s address and 
register B contains the partial opcode. 

The algorithm used is a binary search in which the inter¬ 
val to be searched is divided into two nearly equal parts, 
the part which does not contain the searched for item is dis¬ 
carded, and the part which contains the sought item is simi¬ 
larly processed until the wanted item is located. The binary 
search is used because it is significantly faster than a linear 
search. 

Calls: ADD16, COMPAR, MPY16 

Called By: MAIN 

Pointers: DESCRA, DESCRC, PCOUNT, PSTNG1, 

PSTNG2, TBADD 
Temporaries: ENSIZ, IP, LP, MP 
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STOSYM 


This routine is used to store a symbol and its value into 
the hash coded Symbol Table (SYMTAB). Hash coding is 
the method by which the actual symbol that is to be stored 
in the table is used to find the address of the Symbol Table 
entry. Hashing means simply to hash or to jumble up the 
bits of the ASCII characters in a symbol in such a way that 
a fairly unique number is generated. This number, after 
further manipulation, becomes the actual address of the lo¬ 
cation in the Symbol Table where the symbol is to be 
stored (located). 

On entry, DESCRA contains the address of the symbol 
(from the label field) to be stored and DESCRC contains 
the length. Routine HASH is called to create a hashed code 
to access the table. If the entry at this address, called the 
probe address, is empty then the symbol and its value is 


stored there and the routine returns. If the entry at this 
probe address is not empty then a new probe must be cal¬ 
culated. This is done by looking at the next sequential 
address after the first probe to see if it is empty. If it is 
the symbol and its value are stored at this new location. If 
this new entry is also occupied then the next sequential 
address after this new probe is checked, etc. This manner of 
rehashing is called the Linear Rehash method. 

If the symbol is already in the Symbol Table then an 
error message is printed and the routine returns. If the 
entire table is found to be full then an error message is 
printed and the routine returns. 

Calls: HASH, PRINTE, SYMCMP, SYMMOD 

Called By: MAIN, POCMN, POEXT, PON AM 

Pointers: SYMPTR 

Temporaries: HSAV1, HSAV2, HSMBL 



17 














LKPSYM 

This routine is used to look up a symbol in the Symbol 
Table. On entry, DESCRA contains the address of the sym¬ 
bol to be looked up and DESCRC contains the length. This 
routine proceeds much as the STOSYM routine except that 
if the symbol is found the value of the flag byte is returned 
in register B. 

If the symbol is not found in the Symbol Table then a 
return code of hexadecimal FF is returned in register B. 

Calls: HASH, SYMCMP, SYMMOD 

Called By: MAIN, NSEVL, POCMN, POENT, POEXT 

Pointers: HKEYA, SYMPTR 

HASH 

This routine is used to create a hashed code for accessing 
the Symbol Table (SYMTAB). On entry, DESCRA contains 


the address of the symbol to be hashed and DESCRC con¬ 
tains the length. 

The hashed value is calculated by first folding over the 
six bytes of the symbol (spaces are added to the right of 
symbols less than six bytes long) into two bytes by adding 
the six bytes together in groups of two bytes. This value is 
divided by the maximum number of symbols that the Sym¬ 
bol Table can hold (NSYM). The remainder from this divi¬ 
sion is then multiplied by nine (the entry length) and the 
base address of the Symbol Table is added to produce a 
pseudo random address. This value is returned in the Index 
register. 

Calls: ADD16, DIV16, MPY16 

Called By: LKPSYM, STOSYM 

Pointers: DESCRA, DESCRC, NSYM 

Temporaries: HKEYA, HKEYB, HSAV1, HSAV2, HSMBL 


Flowchart of LKPSYM routine. The use of square Flowchart of HASH routine. ADDR(Y) indicates 

brackets as in [ Y] indicates the contents at address Y. the address of item Y. 
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DELSYM 

Sometimes it is necessary to delete an entry from the 
Symbol Table. This routine does the deletion but it can 
only delete the last entry that has been added to the 
Symbol Table. On entry, SYMPTR contains the location 
of the last symbol stored and this is the entry that is 
deleted. 

Calls: none 

Called By: LBLCK 

Pointers: SYMPTR 


SYMCMP 

This routine is used to compare a symbol with an entry 
in the Symbol Table. On entry, the Index register points to 
the entry in the Symbol Table and HSMBL contains the 
symbol. 

On return, the results of the comparison are reflected in 
the condition codes (see COMPAR). 

Calls: COMPAR 

Called By: LKPSYM, STOSYM 

Pointers: HSMBL, PCOUNT, PSTNG1, PSTNG2 



Flowchart of DELSYM routine. Flowchart of S YMMOD routine. Flowchart of S YMCMP routine. 


Input and Output Routines 

These 10 routines perform the details of formatting information from and to the particular medium used 
for the source and object code. These routines are independent of the particular serial medium used to store 
the code. The routines which are directly dependent on the type of medium are described in the section 
Interfacing and Using the Assembler. 


OUTBNR 

This routine stores the single ASCII character in register 
B into the output file. 

The character may be an: 

“R” — Relocatable 

“N” — Entry 

“X” - External 

“M” - Common 

Calls: OUTB 

Called By: POENT, POEXT, POFDB, PONAM 

Flags: OPTNS 


OUTBIN 

This routine puts machine code into the output file. On 
entry, register B contains one byte of machine code. 
OUTBIN translates this byte into two bytes of ASCII hexa¬ 
decimal characters and then calls OUTB to output the two 
bytes to the object file. 

Calls: OUTB, OUTHL, OUTHR 

Called By: ADDR9, LCNAB1, LCN2, LCN3, PBLOCK, 

POENT, POEXT, POFCB, POFCC, POFDB, 

PONAM,RMBOUT 
Flags: OPTNS 
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Flowchart of RDLINE routine. ADDR(Y) indicates the address of item Y. 



X: = ADDR 
CUCHAR 
CULINE 

INLINE) 

= X 
* X 




CALL 

GETB 



IN IT STACK 


POINTER 



POEND0) 



SAVE CHAR. 



X: 

X+l 


RDLINE 

This routine extracts lines of source code from the input 
file. On exit from RDLINE, the Assembler global pointers 
CUCHAR and CULINE point to the input line that is to be 
processed next. 

If the Macro flag MACFLG is set, RDLINE calls the rou¬ 
tine RDMAC. This routine passes lines of source code from 
the expanded Macro back to RDLINE and RDLINE passes 
these lines to the rest of the Assembler, rather than lines 
from the input file. 

Calls: GETB, RDMAC 

Called By: MAIN, POM AC 

Flags: MACFLG 

Pointers: CUCHAR, CULINE, INBUF 



^ RETURN ^ 
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Calls: 

Called By: 

Flags: 

Pointers: 

Temporaries: MACSAV 
Buffers: MACLIN 


Q RDMAC J 



CULINE : =AODR (MACLIN) 
CUCHAR = ADDR(MACLIN) 
MCLPTR =ADDR (MACLIN) 


^ RETURN ^ 



Flowchart of RDM A C routine. The use of square brackets as in [Y] indicates the contents at address Y. A DDR(Y) 

indicates the address of item Y. 


RDMAC 

This routine retrieves Macro lines from MACTBL, ex¬ 
panding them when necessary. 

MACPUL, PRINTE 
RDLINE 
MACFLG 

CUCHAR, CULINE, MACPTR, MCLPTR 


B =[macptr] 

B = B- $2F 
MACPTR = MHCPTR + I 
X =ADDR(MACPAR) 




YES 

A: * ^MACSAV] 

MACSAV: * MACSAV ♦ 1 





[mclptrJ : *a 

MCLPTR: 1 MCLPTR♦1 


YFQ v^CLPTrNs. 

<Taddr (MACLINL> 

\^l P/ 

[NO 

A:*CMACSAvJ 

MACSAV:* MACSAV + 1 





^ RETURN ^ 
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Flowchart of MACPSH routine. 


MACPSH 



This routine is used when a nested Macro is called. The 
state of the present or outer Macro being expanded is 
pushed onto the Macro Stack (MACSTK). 

Calls: PRINTE 

Called By: MAIN 

Flags: MACFLG 

Pointers: MACEND, MACPTR, MACSAV, MACSTK, 

MCLPTR, MSTKPT 

Temporaries: STKSAV, MXSAV1, MXSAV2 

Buffers: MACPAR 

MACPUL 

This routine is used to pull the state of a Macro previ¬ 
ously pushed onto the Macro Stack. This is done when the 
inner Macro has been fully expanded. 

Calls: none 

Called By: RDMAC 

Pointers: MACPTR, MACSAV, MCLPTR, MSTKPT 

Temporaries: MXSAV1, STKSAV 

Buffers: MACPAR 


Flowchart of MACPUL routine. 
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RDBUF 


Flowchart of RDBUF routine. ADDR(Y) indicates the address of item Y. 



\ N0 

GET >--- 

OK / 




S END 'v 
OF FILE 
V ieofi _ 


FLAG 

END OF FILE 
ERROR 


I-1 

! END OF ! 

- TRANSMISSION 
I BLOCK (ETB) l 


OVERRUN 


CALL TIGET 


/ IS \ NO 
CKSUM OK —- 




RDBUF (Tape) 

This routine reads in blocks of source code from the in¬ 
put tape, it places the block of source code in INBUF. The 
routine uses the tape driver routines T1INZ, TIGET, and 
T1ISTP. On return from the routine the Index register 
points to the first location in the input buffer (INBUF). 

Calls: INEEE, PDATA1, TIGET, T1INZ, T1ISTP 

Called By: GETB 
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Pseudo Instruction Processing 

Following are the descriptions of the routines which 
process the set of pseudo instructions defined for this 
Assembler (see “Pseudo Instructions” in the section The 

Source Language). 

POCMN 


CMNLC is then incremented by the number of bytes al¬ 
located by the second operand. 

In Pass 2 there is very little processing done by POCMN 
other than setting up flags for the listing line. 

Calls: ADRINT, LBLCK, LKPSYM, NSEVL, 

NXTOK, PRINTE, PRINTL, STOSYM 
Called By: MAIN 


This routine processes the CMN pseudo operation. In 
Pass 1, the name in the operand field is stored in the Sym¬ 
bol Table with: REL bit set equal to off (0), Common bit 
set equal to on (1), Value set equal to value of the Common 
Location Counter (CMNLC). 


Flowchart of POCMN routine. The 
use of square brackets as in [Y] 
indicates the contents at address Y. 




Flags: CMNFLG, MCOUNT, PASS, POP 

Pointers: ADR1, ADR2, CMNLC, SYMPTR 

Temporaries: CMNXS 
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POEND 


This routine processes the END pseudo operation. In 
Pass 1, POEND initializes the system global value TSTPH. 
TSTPH is used by the Assembler to check for phasing er¬ 
rors. A phasing error is one in which an instruction is at 
different locations during Pass 1 and Pass 2. This can occur, 
for example, if a Macro definition follows the call to that 
Macro. 

During Pass 1 POEND also sets PASS to Pass 2, rewinds 
the input file, and then transfers control to PASS2. In Pass 2, 
POEND finishes up the assembly by printing the Symbol 
Table, if selected, printing the error count, closing the out¬ 
put file, and transferring control to the system monitor. 


Calls: 


Called By: 

Flags: 

Pointers: 

Temporaries: 


ADRINT, COMPAR, CRLF, CVBTD, 
LBLCK, LINCK, OUTCHR, PDATA1, 
PRINTE, PRINTL, RESTR, WREOF 
MAIN 

OPTNS, PASS, SORTF 
CBLOCK, CMNLC, CXS2, LC, PCOUNT, 
PSTING1, PSTING2, TSTPH, ZZZ 
ENDXS 


Flowchart of POEND routine. 



UPDATE 
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POENT 

This routine processes the ENT pseudo operation. Dur¬ 
ing Pass 1 the statement is checked for syntax. In Pass 2 the 
symbol in the operand field is looked up in the Symbol 
Table. The ENT bit in the entry in the Symbol Table is 
then set. The symbol, the entry address, “R”, and “N”are 
output to the output file, providing linking information to 
the Linking Loader. 

Following Pass 1 or 2 processing control is passed to 
entry point MAIN!. 

Calls: ADRINT, LBLCK, LKPSYM, NXTOK, 

OUTBIN, OUTBNR, PBLOCK, PR1NTE 

PRINTL 

Called By: MAIN 

Flags: ENTFLG, MCOUNT, PASS, POP 

Pointers: ADR1, ADR2, SYMPTR 


^ POENT ^ 


CALL 

4DRINT 



CALL 

LBLCK 



GET NAME 


Flowchart of POENT routine. The use of 
square brackets as in [Y] indicates the 
contents at address Y. 
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POEQU 

This routine processes the EQU pseudo instruction. In 
Pass 1 the operand is evaluated and stored in the Symbol 
Table entry associated with the label on the EQU state¬ 
ment. During Pass 2 there is no processing done other than 
printing the line of listing. 

Following Pass 1 or 2 processing control is passed to 
entry point MAINI in the main loop. 


Calls: ADRINT, NSEVL, NXTOK, PRINTE, 

PRINTL 

Called By: MAIN 

Flags: LBFLG, MCOUNT, PASS, POP, RELFLG 

Pointers: SYMPTR 

Temporaries: EQUXS 




Flowchart of POEQU routine. The use of square brackets as in [Y] indicates the contents at address Y. 
















PBLOCK 

This routine is used by the POENT and POEXT routines 
to output the Entry/External symbol to the output file. 

Calls: OUTBIN 

Called By: POENT, POEXT 

Pointers: SYMPTR 

Temporaries: PBXS 

POEXT 

This routine processes the EXT pseudo operation. In 
Pass 1 the symbol in the operand field of the statement is 
stored in the Symbol Table with the EXT bit set and a 
value equal to the current value of the location counter. 

In Pass 2, a JMP symbol (3 bytes) is assembled and out¬ 
put to the output file, along with the EXT indicator “X”. 
This provides linking information to the Linking Loader. 

Following Pass 1 or 2 processing control is passed to 
entry point MAIN1. 

Calls: ADRINT, LBLCK, LCLCN, LKPSYM, 

NXTOK, OUTBIN, OUTBNR, PBLOCK, 

PRINTE, PRINTL, STOSYM 
Called By: MAIN 

Flags: EXTFLG, MCOUNT, PASS 

Pointers: ADR1, ADR2, LCN, OPCD, SYMPTR 


Flowchart of POEXT routine. 
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POFCB 

This routine processes the FCB pseudo instruction. Dur¬ 
ing Pass 1, POFCB simply increments the Location Counter 
(LC). 

In Pass 2 the LC is incremented as in Pass 1, but the 
operand is evaluated and stored as a one byte value in the 
output buffer. 

Following Pass 1 or 2 processing control is passed to 
entry point MAIN1 in the main loop. 

Calls: ADRINT, LCLCN, NSEVL, NXTOK, 

OUTBIN, PRINTE, PRINTL 
Called By: MAIN 

Flags: MCOUNT, PASS, POP 

Pointers: LCN 


Flowchart of POFCB routine. 
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POFCC 

This routine processes the FCC pseudo instruction. 
In Pass 1 the Location Counter is incremented by the 
number of characters in the operand of the statement. 

When Pass 2 is executed the Location Counter is incre¬ 
mented as in Pass 1; however, the ASCII character string in 
the operand field is stored in the output file. 

Following Pass 1 or 2 processing control is passed to 
entry point MAI N1 in the main loop. 

Calls: 


POFCC ^ 




CALL ADRINT 



CALL 

NXTOK 


V 


ADRINT, LCLCN, 

PRINTE, PRINTL 
Called By: MAIN 

Flags: MCOUNT, PASS, POP 

Pointers: ADR1, ADR2, CUCHAR, LCN 


NXTOK, OUTBIN, 


IS CCUCHAR3 
I = CARRIAGE p 
RETURN (CR) 



, IS CCUCHAR+13 , 

=QUOTE (- 

MARK (’) 



YES 
N 

? 

/ 
NO 


<^wmci- 

PASS> 

? y/ 

[PASS 2 

CALL OUTBIN 





CUCHAR = 
CUCHAR+1 




LCN =LCN+1 



\ 1— 


IS CCUCHAR3^ 

| = CARRIAGE p 
RETURN (CR) 



' IS CCUCHAR3 . 
H * QUOTE 
I mark o 


Flowchart of POFCC routine. The use of square 
breakets as in [Y] indicates the contents at address Y. 


CALL PRINTL 


CALL LCLCN 


4 


flag 

#204 

ERROR 



CALL 

> RINTE 

——1 
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POIF 

This routine processes the IF pseudo instruction. There 
is no distinction made between Pass 1 and 2. 

The operand is evaluated and the present value of the 
flag IFFLG is stacked in IFSTK. Then depending on 
whether the operand value is 0 or not, IFFLG is set or 
cleared. 

Cleared: Not assembling 

Set: Assembling 

Calls: ADRINT, LBLCK, NSEVL, NXTOK 

PRINTE, PRINTL, PSHIF 
Jumps: MAIN! 

Called By: MAIN 

Flags: IFFLG 


Flowchart of POIF routine. 
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PSHIF (PULIF) 

This routine is used by the POIF and PONIF routines 
to either push or pull the present value of the IFFLG on 
(from) the IF stack (IFSTK). 


Calls: PRINTE 

Called By: POIF, PONIF 

Entry Points: PULIF 

Flags: IFFLG 

Pointers: STKSAV, @IFSTK 


Flowchart of PUSH IF and PULIF routines. 



UNDERFLOW 
ON IF-STACK 


t ---I 
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POMAC 

This routine processes the MAC pseudo operation. Dur¬ 
ing Pass 1 POMAC stores in the Macro Table (MACTBL) all 
of the source lines following the MAC pseudo instruction 
up to, but not including, the statement containing the 
MEND pseudo instruction. The Macro name is stored in the 
Symbol Table and the value of this name is the starting 
address in the MACTBL where the Macro definition is 
stored. The flag byte in the Symbol Table entry is set to 
indicate that the entry is a Macro name. 

During Pass 2 POMAC skips over the source lines be¬ 
tween the MAC and MEND pseudo operations. 


f POMAC ^ 


CAL 

ADR 

L 

INT 



CALL 

PRINTL 



CLEAR 

CMFLG,MACERR 


Flowchart of POMAC routine 



Following Pass 1 or 2 processing control is passed 
entry point MAIN! in the main loop. 


Calls: ADRINT, COMPAR, MACMOV, NXTOK, 

PRINTE, PRINTL, RDLINE 
Called By: MAIN 

Flags: CMNFLG, LBFLG, MACERR, PASS 

Pointers: CULINE, DESCRA, LNUM, MACPTR, 

PCOUNT, SYMPTR 


CALL 

NXTOK 
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MACMOV 

This routine is used by the POMAC routine to move a 
line from the Macro definition to the Macro Table. 

Calls: PRINTE 

Called By: POMAC 

Flags: MACERR, PASS 

Pointers: CULINE, MACPTR 


Flowchart of MACMOV routine. The use of square 
brackets as in [Y] indicates the contents at address Y. 


PONAM 

This routine processes the NAM pseudo instruction. The 
operand name is passed to the Linking Loader as an Entry 
point followed by the size of the Common Block. 

Calls: ADRINT, LBLCK, NXTOK, OUTBIN, 

OUTBNR, PRINTE, PRINTL 
jumps: POENT1, POENT3 

Called By: MAIN 

Flags: PASS 

Pointers: CMNLC 


Flowchart of PONAM routine. 
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PON IF 


POPAG 


This routine processes the NIF pseudo operation. There 
is no distinction between Pass 1 and Pass 2 processing. 

The last value of the flag iFFLG is pulled off of the 
IFSTACK. 

Calls: ADRINT, LBLCK, PRINTE, PULIF 

Jumps: MAIN1 

Called By: MAIN 



Flowchart of PONIF routine. 


This routine processes the PAG pseudo instruction. 
During Pass 2 this routine simply advances the listing on 
the system console (if the listing option has been selected) 
to the top of the next page. 

Following Pass 1 or 2 processing control is passed to 
entry point MAIN1 in the main loop. 

Calls: ADRINT, LBLCK, OUTCHR 

Called By: MAIN 

Flags: PASS 

Pointers: LCOUNT 



Flowchart of POPA G routine. 
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Flowchart of FORM B routine. The use of square 
brackets as in [Y] indicates the contents at address Y. 


PORMB 

This routine processes the RMB pseudo instruction. Dur¬ 
ing Pass 1 the operand is evaluated and the Location 
Counter (LC) is incremented by this value. In Pass 2 the 
Location Counter is incremented by the value of the oper¬ 
and, and that number of zeroes is stored in the output buf¬ 
fer. 

Following Pass 1 or 2 processing control is passed to 
entry point MAIN1 in the main loop. 

Calls: ADRINT, NSEVL, NXTOK, PRINTE, 

PRINTL, RMBOUT 
Called By: MAIN 

Flags: MCOUNT, PASS, POP 

Pointers: ADR1, ADR2, LC 

Temporaries: LSAVE 
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RMBOUT 


LBLCK 


This routine is used by the PORMB routine to output 
zero bytes to the output file. On entry, (ADR1, ADR2) 
contains the number of bytes to be output. 

Calls: OUTBIN 

Called By: PORMB 

Pointers: ADR1.ADR2 

Temporaries: LSAVE 


This routine is used by certain of the pseudo instruc¬ 
tion processing routines to check to see if there is a label 
for that source line. If there is a label, it is deleted from the 
Symbol Table, and an error message printed. 

Calls: DELSYM, PRINTE 

Called By: POCMN, POEND, POENT, POEXT, 

PONAM, POPAG 
Flags: LBFLG, PASS 




Flowchart of RMBOUT routine. The use of square 

brackets as in [Y] indicates the contents at address Y. Flowchart of LBLCK routine. 
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Opcode Processing Routines 

The address processing routines all perform the same 
function and share common subroutines. The main func¬ 
tion of an address processing routine is to scan the operand 
field of a statement and, based on the structure and values 
of the operands, generate the machine code for the instruc¬ 
tion being processed. The processing routine also incre¬ 
ments the Location Counter by the number of bytes the 
assembled instruction requires. Inherent, Relative and 
Accumulator addressing types require one byte. Indexed 
and Direct types require two bytes. Extended type in¬ 
structions require three bytes, and Immediate types re¬ 
quire either two or three bytes. 


During Pass 1 no machine code is generated, but the 
operand field is scanned to detect errors and to calculate 
the number of bytes the instruction requires. 

During Pass 2 the machine code is generated and stored 
in the output file. 

Following Pass 1 and 2 processing control is passed to 
entry point MA1N1 in the main loop. 

ADDR1 

This routine processes the following opcodes: ADC, 
ADD, AND, BIT, CMP, LDA, ORA, SBC, SUB. The oper¬ 
and structure may be Immediate (2 bytes), Direct (2 
bytes), Extended (3 bytes), or Indexed (2 bytes). 

On entry, register B contains part of the opcode: de- 
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ADDR2 


This routine processes the following opcode: STA. The 
operand structure may be Direct (2 bytes), Extended (3 
bytes), or Indexed (2 bytes). 

On entry, register B contains part of the opcode; de¬ 
pending on the operand field, ADDR2 completes the op- 
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ADDR3 

This routine processes the following opcodes: ASL, 
ASR, CLR, COM, DEC, INC, LSR, NEG, ROL, ROR, 
TST. The operand structure may be Accumulator (1 byte), 
Extended (3 bytes), or Indexed (2 bytes). 

On entry, register B contains part of the opcode; de¬ 
pending on the operand field, ADDR3 completes the op¬ 
code, generates the machine code for the address field of 
the instruction, and sends it to the output file. 

Calls: ABRCK, ADRINT, INXCK, LCNAB1, 

LCLCN, LCN2, LCN3, NSEVL, NXTOK, 
PRINTE, P2ERR 
Jumps: MAIN1 

Called By: MAIN 

Flags: ABR 

Pointers: ORBYA, ORBYB 



YES 


(CARRIAGE 

RETURN) 




FLAG 

ERROR #204 


CALL 

PRINTE 
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ADDR4 


This routine processes the opcodes PSH and PUL. The 
operand structure is the Accumulator structure (1 byte). 

On entry, register B contains the partial opcode. De¬ 
pending on the Accumulator in the operand field, ADDR4 
completes the opcode and outputs it to the output file in 
Pass 2. 

Calls: ABRCK, ADRINT, LCLCN, LCNAB1, 

NXTOK, PRINTE 
Jumps: MAIN1 

Called By: MAIN 

Flags: ABR 

Pointers: ORBYA, ORBYB 


Flowchart of ADDR4 routine. 


[7s OPERAND 

AN A OR B |— 
ACCUMULATOR 



FLAG 

ERROR #204 


CALL PRINTE 
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ADDR5 


This routine processes the following opcodes: CPX, 
LDS, LDX. 

The operand structure may be Immediate (3 bytes), 
Direct (2 bytes), Extended (3 bytes), or Indexed (2 bytes). 

On entry, register B contains the partial opcode. De¬ 
pending on the operand field, ADDR5 completes the op¬ 
code, generates the machine code for the address part of 
the instruction, and outputs it to the output file in Pass 2. 

Calls: ADRINT, INXCK, LCLCN, LCN2, LCN3, 

NSEVL, NXTOK, PRINTE, P2ERR 
Jumps: MAIN1 

Called By: MAIN 


Flags: CMNFLG, RELFLG 
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ADDR6 


This routine processes the following opcodes: STX, 
STS. The operand structure may be Direct (2 bytes), Ex¬ 
tended (3 bytes), or Indexed (2 bytes). 

On entry, register B contains the partial opcode. De¬ 
pending on the operand field, ADDR6 completes the op¬ 
code, generates the machine code for the address part of 
the instruction, and outputs it to the output file in Pass 2. 

Calls: ADRINT, NXTOK 

Jumps: ADDR5A, ADDR5C 

Called By: MAIN 
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ADDR7 

This routine processes the following opcodes: JMP, JSR. 
The operand structure may be Extended (3 bytes), or In¬ 
dexed (2 bytes). 

On entry, register B contains the partial opcode. De¬ 
pending on the operand field, ADDR7 completes the op¬ 
code, generates the machine code for the address part of 
the instruction, and outputs it to the output file in Pass 2. 

Calls: ADRINT, INXCK, LCLCN, LCN2, LCN3, 

NSEVL, NXTOK, PRINTE, P2ERR 
Jumps: MAIN1 

Called By: MAIN 

Pointers: ORBYA 


Flowchart of ADDR7 routine. 
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ADDR8 

This routine processes the following opcodes: BCC, 
BCS, BEQ, BGE, BGT, BHI, BLE, BLT, BM1, BRA, BSR, 
BVC, BVS. The operand structure is the Relative (2 bytes). 

On entry, register B contains the complete opcode. 
ADDR8 evaluates the operand field and calculates the rela¬ 
tive offset that is to be the address part of the instruction 
and outputs it to the output buffer in Pass 2. 

Calls: ADRINT, LCLCN, LCN2, NSEVL, NXTOK, 

PRINTE, P2ERR 
Jumps: MAIN1 

Called By: MAIN 

Flags: PASS 

Pointers: ADR1,ADR2, LC 

Temporaries: LSAVE 


Flowchart of ADDR8 routine. 
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ADDR9 

This routine processes the following opcodes: ABA, 
CBA, CLC, CL!, CLV, DAA, DES, DEX, INS, INX, NOP, 
RTI, RTS, SBA, SEC, SEI, SEV, SWI, TAB, TAP, TBA, 
TPA, TSX, TXS, WAI. 

The operand structure does not exist as this is an In¬ 
herent type instruction. On entry register B contains the 
complete opcode, and the routine outputs this value to the 
output buffer in Pass 2. 

Calls: ADRINT, LCLCN, OUTB1N, PRINTL 

Jumps: MAIN1 

Called By: MAIN 

Flags: MCOUNT, PASS 

Pointers: LCN 


Flowchart of ADD R9 routine. 


Address Processing Utility Routines 

These utility routines are used by the opcode processing 
routines ADDR1 through ADDR9 for processing the vari¬ 
ous operands and instruction types. 

ADRINT 

This initializes flags and variables used in the opcode and 
pseudo operation processing routines. 

Calls: none 

Called By: ADDR1 thru ADDR9, MAIN, POCMN, 

POEND, POENT, POEQU, POEXT, POFCB, 
POFCC, POFDB, POIF, POM AC, PON AM, 
PON IF, POPAG, PORMB 

Flags: ABR, ADR1, ADR2, CMNFLG, ENTFLG, 

EXTFLG, IMMED, INDEX, LCN, 
MCOUNT, ORBYA, ORBYB, POP, 
RELFLG 

Pointers: OPCD 



ABRCK 

This checks to see what, if any, register is the first op¬ 
erand in the operand field of an instruction. The register 
is either A or B. 

Calls: none 

Called By: ADDR1 thru ADDR4 

Flags: ABR 



Flowchart of ABRCK routine. 
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LCNAB1 

This does the finish up processing for one byte Accumu¬ 
lator type instructions. 

Calls: OUTBIN, PRINTL 

Called By: ADDR3, ADDR4 

Flags: ABR, MCOUNT, PASS 

Pointers: LCN, OPCD, ORBVA, ORBYB 

Flowchart of LCNAB1 routine. 



INXCK 

This checks to see if an instruction is Indexed. 

Calls: NXTOK, PRINTE 

Called By: ADDR1, ADDR2, ADDR3, ADDR5, 

ADDR7 
Flags: INDEX 


Flowchart of INXCK routine. 



P2ERR 

This prints Pass 2 errors. Some errors returned by the 
evaluation routine NSEVL are considered errors in Pass 2 
but are not errors in Pass 1. 

Calls: PRINTE 

Called By: ADDR1, ADDR2, ADDR3, ADDR5, 

ADDR7, ADDR8, POFCB, POFDB 
Flags: PASS 

Pointers: ADR1,ADR2 

Flowchart of P2ERR routine. 
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LCN2 

This does the finish up processing for two byte Indexed, 
Direct, and Immediate type instructions. 

Calls: OUTBIN, PRINTL 

Called By: ADDR3, ADDR5, ADDR7, ADDR8 

Entry: LCN2A 

Flags: CMNFLG, MCOUNT, PASS, RELFLG 

Pointers: ADR2, LCN, OPCD, ORBYA, ORBYB 


LCNAB2 

This does the finish up processing for two byte register 
(A, B) Indexed, Direct, and Immediate type instructions. 

Calls: none 

Jumps: LCN2A 

Called By: ADDR1, ADDR2 

Flags: ABR, PASS 

Pointers: OPCD, ORBYA, ORBYB 
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This does the finish up processing for the three byte 
Extended type instructions. 

Calls: OUTBIN, PRINTL 

Called By: ADDR3, ADDR5, ADDR7 
Entry: LCN3A 

Flags: CMNFLG, MCOUNT, PASS, RELFLG 

Pointers: ADR1, ADR2, LCN, OPCD, ORBYA, 

ORBYB 


LCNAB3 

This does the finish up processing for the three byte 
register (A, B) Extended and Immediate type instructions. 

Calls: none 

Jumps: LCN3A 

Called By: ADDR1, ADDR2 

Flags: ABR, PASS 

Pointers: OPCD, ORBYA, ORBYB 


PASS I /WHICH' 
< PASS 
\ s 


'WHICH\ p A ss 
PASS — 

V ? / 


l(OTHER) 
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LCLCN 

This does the addition of LCN to LC (LC:=LC+LCN). 
Calls: none 

Called By: POEXT, POFCB, POFCC, POFDB, ADDR1 

thru ADDR5, ADDR7 thru ADDR9 
Pointers: LC, LCN 


Lexical Analysis Routines 

The lexical analysis routines described in this section are 
concerned with finding and classifying the individual tokens 
of an assembly language statement. A token is a non-blank 
string of contiguous characters, such as a label, an expres¬ 
sion, or an operand. 

NXTOK 

This routine extracts tokens from a line of source code. 
It scans a line of source code and returns the next token 
each time that it is called. 

On entry, CUCHAR points to the next character in the 
line. NXTOK returns a token by placing the address of the 
token in DESCRA and the length of the token in DESCRC. 
The routine also returns the token type in register B and 
the token class in register A. If the token is unrecognizable, 
the routine returns with both the A and B registers cleared. 
The following tokens are recognized by NXTOK: 


TOKEN 

TYPE (B) 

CLASS (A) 

NAME 

01 

02 ) 

HEX 

03 

02 > Substrings 

DECIMAL 

09 

02 ) 

# 

23 

04 ) 

1 

2c 

04 > Delimiters 

f 

27 

04 ) 

* 

2A 

24 v 

/ 

2F 

24 I Arithmetic 

+ 

2B 

24 

- 

2D 

24 ' 

A 

41 

01 ) 

B 

42 

01 > A,B,X registers 

X 

58 

01 f 

CR 

0D 

0D End of Line 

ERROR 

00 

00 Error 

Calls: 

DSCAN, GCHRTB, HSCAN, NSCAN 

Called By: 

ADDR1 thru 

ADDR8, INXCK, MAIN, 


NSEVL, POCMN, POENT, POEQU, POEXT, 
POFCB, POFCC, POFDB, POMAC, 
PONAM, PORMB 


Pointers: CUCHAR, DESCRA, DESCRC 
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Flowchart ofNXTOK routine. The use of square 
brackets as in [Y] indicates the contents at address Y. 






















A: = [CUCHAR] 


DESCRC: * 
DESCRC+I 


CUCHAR.* 

CUCHAR+I 


A; = [CUCHAR] 


A: = [CUCHAR] 


CALL 

GCHRTB 


DESCRC:* 

DESCRC+I 


DESCRC:* 
DESCRC+ I 


^alphabetic; 

\ ? / 


CUCHAR:: 

CUCHAR+ 


CUCHAR:* 

CUCHAR+I 


NUMERIC 


CALL 

GCHRTB 


CALL 

GCHRTB 


DESCRQ7NIES- 

\ P / 


DECIMAL\liS_ 

\ P / 


^HEXA-\ 

DECIMAL 



DESCRC:* 
DESCRC -I 


CUCHAR:* 

CUCHAR-I 


Flowchart of NSC AN, DSCAN, and HSCAN routines. 

The use of square brackets as in [ Y] indicates the contents at address Y. 
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DSCAN 


GCHRTB 


This routine scans substrings of decimal characters. On 
entry, CUCHAR points to the first character to be scanned. 
DSCAN continues to scan until it finds a non-decimal char¬ 
acter. The address of the decimal substring is returned in 
DESCRA and the length of the substring is returned in 
DESCRC. The B register is loaded with a type code of 09. 

Calls: GCHRTB 

Jumps: ENDSCN 

Called By: NXTOK 

Pointers: CUCHAR, DESCRC 

NSCAN 

This routine scans substrings of alphanumeric characters. 
On entry, CUCHAR points to the first character to be 
scanned. NSCAN continues to scan until it finds a non- 
alphanumeric character. The address of the alphanumeric 
substring is returned in DESCRA and the length of the sub¬ 
string is returned in DESCRC. The B register is loaded with 
a type code of 01. 

Calls: GCHRTB 

Jumps: ENDSCN 

Called By: NXTOK 

Pointers: CUCHAR, DESCRC 

HSCAN 

This routine scans substrings of hexadecimal characters. 
On entry, CUCHAR points to the first character to be 
scanned. HSCAN continues to scan until it finds a non¬ 
hexadecimal character. The address of the substring is re¬ 
turned in DESCRA and the length of the substring in 
DESCRC. The B register is loaded with the type code 03. 

Calls: GCHRTB 

Called By: NXTOK 

Pointers: CUCHAR, DESCRA, DESCRC 

ENDSCN 


This routine retrieves the byte in CHRTAB that is In¬ 
dexed by the value of the character in the A register. 

On return, register A contains the value of the byte 
retrieved from CHRTAB. 

Calls: ADD16 

Called By: DSCAN, HSCAN, NSCAN, NXTOK 

Pointers: CHPTR 



This is a common return for routines: DSCAN, NSCAN, 
and HSCAN. 


Flowchart of GCHRTB routine. The use of square 
brackets as in [Yj indicates the contents at address Y. 
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Evaluation Routine 

NSEVL 

This routine evaluates numbers, symbols, and expressions composed of numbers, symbols and operators. A straight 
left to right evaluation is performed without regard to precedence of hierarchy of operators. 

The relocation indicator flag (RELFLG) is set if the final result is relocatable. Generally, a result is considered relo¬ 
catable if it contains an odd count of relocatable terms. This can produce meaningless results; for example, the addition 
of two relocatable terms is an absolute value, but unfortunately not very useful. However, the difference of two relo¬ 
catable terms can be very useful as the length of a table. 

The Common flag is set if during the evaluation a symbol is found that is marked common in the Symbol Table. 

On entry, the class code and the type code for the first token of the operand are in registers A and B, and the 
relocation flag is set to absolute (00). 

NSEVL proceeds by scanning the operand field and performing the indicated operations and storing the inter¬ 
mediate results in variables VALUE and TEMP. 

On return the final sixteen bit unsigned result is in variable (ADR1, ADR2), and the B register contains a 00 if 
there were no errors. If there were errors the error number is in the Index register as a four digit BCD number. The 
relocation flag (RELFLG) is equal to 00 if the result is an absolute value, and to FF if the result is relocatable. 

Calls: ADD16, CVDB, CVHB, DIV16, LKPSYM, MPY16, NXTOK, SUB16 

Called By: POCMN, POEQU, POFCB, POFDB, POIF, PORMB, ADDR1, ADDR2, ADDR3, ADDR5, ADDR7 

Flags: CMNFLG, RELFLG 

Pointers: CLASS, CLFLG, CUCHAR, DESRC 
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0 


Part 2 of flowchart NSEVL routine. 



58 

















Interfacing and Using the Assembler 


10 Interface Conventions 

There are obviously several different methods of reading 
in a source program, assembling it, and finally outputting 
the object code. The medium used could be memory only, 
input from and output to cassette tapes, input from and 
output to floppy disk, input from tape and output to disk, 
etc. Included in this section on interfacing are sample 10 
routines for tape to tape and disk to disk systems. 

Looking at the listings of the 10 tape and disk routines 
given in Appendices J and K, notice the various entry 
points (such as TABLES, OUTB, WREOF, etc.) declared 
at the beginning. (These same names are declared as Ex¬ 
ternal in the main program.) These are the names of the 
10 routines which the user must supply for his (her) own 
system. Note that some of the disk routines are supplied 
by the authors’ ICOM Floppy Disk Operating System 
(FDOS), while for the tape version all of the routines had 
to be written from scratch. Again, this may or may not be 
similar to the user’s situation depending on the user’s sys¬ 
tem configuration and software. The routines supplied in 
the cassette tape example could serve as a basis for any 
routines needed by the user. 

Finally, the user should be aware that the actual lengths 
of this assembler and all additional tables and routines as 
given throughout this book assume the use of the cassette 
tape 10 routines given in Appendix J. This means that if 
the user supplies his (her) own routines, the lengths and 
capacities described elsewhere in this book may be 
affected. 

Tape Driver Routines 

The following routines are part of a sample tape driver 
package. They handle the 10 functions for a dual cassette 
tape system. 

T1INZ 

This routine is used to initialize and start cassette Tapel 
for an input operation. 

Calls: TDELY 

Called By: RDBUF 

T1GET 

This routine is used to read a character from the input 


tape, Tapel. The character is returned in register A. It 
checks for read errors and returns the error code in register 
B. If register B contains a 00 then there were no errors. 

Calls: none 

Called By: RDBUF 

T11STP 

This routine is used to stop Tapel after an input opera¬ 
tion. 

Calls: none 

Called By: RDBUF 

T20TZ 

This routine is used to initialize and start cassette Tape2 
for an output operation. 

Calls: TDELY 

Called By: WRITBF 

T20UT 

This routine is used to output a character to Tape2. The 
character to be written is in register A. 

Calls: none 

Called By: WRITBF, T20STP 

T20STP 

This routine is used to stop Tape2 after a write opera¬ 
tion. 

Calls: T20UT 

Called By: WRITBF 

WRITBF (Tape) 

This routine writes out blocks of object code to Tape2 
from the output buffer. The variable OTPTR contains the 
address of the last byte to be written out when the routine 
is called and contains the address of the first byte in the 
output buffer when the routine returns. 

Calls: T20TZ, T20STP, T20UT 

Called By: OUTB, WREOF 
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Disk Driver Routines 



Flowchart of WRITBF routine. 


The disk drivers are all in the bootstrap Erasable Read 
Only Memory included in the ICOM Floppy Disk Operat¬ 
ing System (FDOS). 

RIX — Read a byte from the disk. Byte in A 
register. 

WRT — Write a byte to the disk. Byte in A 
register. Carry flag set if End-Of-File. 

UPDATE — Close an output file. 

FDOS — Load FDOS system and pass control to it. 

Assembler Loading and Execution 

These instructions are written assuming two different 
ways to load and execute the Assembler, depending on 
whether the object code for the Assembler and the target 
program are on cassette tape or diskette. The main differ¬ 
ence is the necessity of the ICOM Floppy Disk Operating 
System (FDOS) for the diskette. The procedures would be 
similar for any tape or disk system other than the two 
mentioned. 

Cassette Tape Files 

To load the Assembler from the cassette tape is easily 
accomplished if the object code for the Assembler is in 
absolute MIKBUG object code format. Using the MIKBUG 
“L” function loads the Assembler from tape. If the Assem¬ 
bler object code is in a relocatable format, then the Link¬ 
ing Loader must be utilized. For a discussion of how to do 
this, consult the PAPERBYTE™ book, LINK68—Link¬ 
ing Loader for Motorola 6800. 

The Assembler executes as a two pass assembler, reading 
the input source from the cassette tape twice and, option¬ 
ally, placing the generated object code onto a second cas¬ 
sette tape. The input source tape would go in the first 
cassette recorder; the object code tape, in the second tape 
machine. 

Use the MIKBUG “M” function to set the entry point of 
the Assembler into locations A048 and A049 (hexadeci¬ 
mal). If the Assembler was loaded in absolute object code 
form, the entry point is hexadecimal 0100. (If the Linking 
Loader was used to load the Assembler, then the entry 
point is probably different. Again, consult PAPERBYTE™ 
book LINK68—Linking Loader for Motorola 6800. If the 
Assembler has been relocated, care should be taken so that 
enough room to contain the 16 K required by the Assem¬ 
bler is allowed for.) Note that using the “M” function 
merely sets up a jump address for the start of the Assem¬ 
bler. If MIKBUG is not being used as a monitor, this may 
be accomplished in other ways. 

After this setup, using the MIKBUG “G” function be¬ 
gins execution of the Assembler, which starts by requesting 
a list of the options the user desires: 

ENTER OPTIONS 
The options possible are: 

L — Provides a printed listing as shown in 
listing 1, page 15. 














S - Prints a sorted Symbol Table, as shown 

in listing 2, page 15; 

M - All Macro expansions are printed, but 

only if the “L” option has also been 
chosen; 

O — Object code is generated. 

The options desired are entered, separated by commas, and 
the list is terminated with a carriage return. 

Example: L, O 

requests that the Assembler provide a printed listing and 
that object code is generated, but that no Symbol Table or 
Macro expansions be printed. 

At this point the Assembler begins Pass 1, reading the 
source tape in cassette 1. When the Assembler encounters 
an END pseudo operation in the source code, it issues the 
message: 

REWIND TAPE & TYPE CR 

At this point the user rewinds the cassette tape which con¬ 
tains the source and resets the controls for another read 
operation. Pass 1 is complete. 

Pass 2 of the Assembler produces the listings, writes the 
object code onto cassette 2, etc. When assembly is com¬ 
plete, control is returned to the system monitor. 

If the Assembler encounters any tape errors in the input 
tape it issues the warning message: 

READ ERROR 

and stops the tape. The user should then reposition the tape 
at the beginning of the block that produced the error and 
type a carriage return. The Assembler then will attempt to 
reread the block. 

If an End-Of-File mark is encountered by the Assembler 
it types the message: 

EOF: REPOSITION TAPE AND TYPE CR . 

Position the tape to the beginning of the next file and type 
a carriage return. Consult the section entitled Source 
Tape Format for an explanation of the use of multiple 
files. 


Diskette Files 

The Assembler is located on a diskette under the name 
“ASMM” and is loaded and executed using the ICOM 
Floppy Disk Operating System (FDOS) command 
"RUNGO”. 

Example: 

RUNGO, ASMM, TEST1, TEST2 

Here the input source file is TEST1 and the output object 
file is TEST2. Since an object file is optional, TEST2 
could have been eliminated. 

The Assembler requests a list of options with the state¬ 
ment: 

ENTER OPTIONS: 

The possible options are: 


L - Provides a printed listing as shown in 
listing 1, page 15; 

S - Prints a sorted Symbol Table as shown in 

listing 2, page 15; 

M - All Macro expansions are printed, but 
only if the “L" option has also been 
chosen; 

O — Object code is generated. 

The options desired are entered, separated by commas, and 
the list is terminated with a carriage return. 

Example: L,S,M 

requests that a listing of the program, sorted Symbol Table, 
and all Macro expansions be printed, but no object code 
generated. 

The Assembler then executes Pass 1 and Pass 2. Upon 
completion of the second pass, control is transferred back 
to the Floppy Disk Operating System. 

Loading the Object Code 

Loading relocatable object codegenerated by the Assem¬ 
bler is covered in detail in the companion PAPERBYTE™ 
publication LINK68—Unking Loader for Motorola 6800. 

Source Tape Format 

The input to the Assembler is on audio tape cassette(s) 
in variable length blocks. The maximum length is set by 
the size of the input buffer in the Assembler (512 bytes). 

Each line of source code is written followed by an End- 
of-Statement mark (a carriage return). Immediately follow¬ 
ing the last line in a block is an End-Of-Block mark (EOB, 
17 hexadecimal). This is followed by a checksum character. 
The checksum is calculated by taking the one’s comple¬ 
ment of the summation of all the preceding bytes includ¬ 
ing the EOB. Note that lines do not span blocks. 

Following the last block on the tape there is an End-Of- 
File (EOF) block. This block contains only one character, 
the EOF character (04 hexadecimal). 

Thus, a file is composed of a variable number of variable 
length blocks followed by an EOF block. 

This provision has been made so as to allow the process¬ 
ing of different files on different tapes, or to allow the pro¬ 
cessing of a file that is longer than the capacity of one tape 
side. 

The user might have a set of commonly used subroutines 
on one tape that is used in many different programs. So 
long as this subroutine tape has an EOF block at the end of 
it, the user may use this one tape each time a different pro¬ 
gram is assembled. That is, the code on this tape does not 
have to be copied onto the different program tapes. 

Output Object Tape Format 

The output object code (relocatable) is recorded on 
audio cassette tape in blocks. The maximum length is set 
by the size of the output buffer in the Assembler (512 
bytes). The format is: 
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Bytes 1 thru n 

Byte n-1 
Byte n-2 


Relocatable object code and informa¬ 
tion for the Linking Loader. 
End-Of-Block (EOB) (17 hexadecimal). 
Checksum character byte; it is the one’s 
complement of the summation of 
bytes 1 thru n. 


The last block on the tape is followed by an End-Of- 
File block. It contains only one byte, an EOF character 
(04 hexadecimal). 
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APPENDICES 




Appendix A: 

Error Messages 


Appendix B: 

Capacities 


Number 

Type 

0202 

Opcode or label error 

0204 

Syntax error 

0205 

Label error 

0206 

Redefined symbol 

0207 

Undefined opcode 

0208 

Relative branch error 

0210 

Byte overflow 

0211 

Undefined symbol 

0213 

EQU pseudo operation error 

0216 

Pseudo operation error 

0220 

Phasing error 

0221 

Symbol table overflow 

0223 

The pseudo operation cannot be labeled 

0226 

The MAC pseudo operation is unlabeled 

0227 

MEND pseudo operation cannot be labeled 

0228 

Macro table overflow 

0230 

Macro expansion line overflow 

0251 

Macro nesting error 

0254 

IF stack overflow/underflow (nesting error) 


This appendix is a summary of the various capacities of 
tables and stacks used in the Assembler. Some of the values 
are calculated from other fixed components of the Assem¬ 
bler, but are nonetheless set in the code. By far the largest 
pieces of the Assembler’s total 16 K size are the Assem¬ 
bler’s actual code, the Macro Table, and the Symbol Table. 
Note that the Symbol Table length is variable (see “Tables” 
in The Assembler, depending on the lengths of the parti¬ 
cular 10 routines used by the user. 


Assembler 
(overall) 
Assembler 
(actual code) 
Character Table 
(CHRTAB) 

If Stack (IFSTK) 
Macro Stack 
(MACSTK) 


Macro Table 
(MACTBL) 
Mnemonic Table 
(MNTAB) 
Symbol Table 
(SYMTAB) 


16 K 
6 K 

64 entries, one byte per entry 
8 levels of nested ifs 

maximum of 35 nested Macro calls if 
no parameters on calls, 4 levels if the 
maximum number of parameters (8) is 
used on each call 

2 K, free form 

86 entries, 6 bytes per entry 

800 symbol entries, 9 bytes per entry 
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Appendix C 

Notes from a User: Implementation of RA6800ML 

by Walter Banks, University of Waterloo 


Implementation of RA6800ML is accomplished by a bootstrap procedure which ultimately results in a 
macro assembler specifically tailored to a unique system. This is accomplished with the use of two absolute 
modules presented in Appendices D and F. 

In normal use RA6800ML generates relocatable object modules which are linked together by LINK68 to 
form a load module of absolute code. The macro assembler itself is generated as a relocatable load module 
requiring linking with input and output drivers to form a usable load module. This has been overcome with 
the use of two absolute load modules found in Appendices D and F. The ASSEMBLER load module con¬ 
tains a copy of the Assembler, linked to location $0100 without any external references satisfied. The 
overlay modules contain external reference code for use with a standard MIKBUG-based system. This 
overlay is designed to facilitate easy initial implementation of RA6800ML and serve as a template for user 
developed software. 

The macro assembler calls external routines through the use of a jump table which starts at location 
$034A. Subroutine calls within the macro assembler go through the jump table to the overlayed routines 
and control is returned to the macro assembler with an RTS. 

The 10 structure of RA6800ML assumes four separate data paths. INCH and OUTCH are input and 
output byte routines to the user console device. GETB and OUTB are communication paths from the 
macro assembler to mass storage devices such as disk, tape, or paper tape. They are used to load the source 
code for assembling and output relocatable code modules. 

The jump table calls GETB which is a subroutine used to get data from a source code input stream. The 
overlay prompts users to load new tapes when end-of-tape is sensed. 

The calls to OUTB are used to write out the relocatable object code to the output stream. In the simple 
implementation these are handled by the console output routine in MIKBUG. 

The calls to MONTOR and UPDATE are used to return control to the user supervisor program. UP¬ 
DATE expects the user routine to close all open files. MONTOR is a direct entry to the user supervisor. 

INITIO calls a routine which initializes 10 devices and drivers. It is not needed in the simple overlay; 
however, room is left for a subroutine jump to a new program. 

WREOF writes an end-of-fi!e ($04) to the output data stream. 

A call to RESTR causes the input file to be reset at the start-of-file point. In the simple version pre¬ 
sented here a message to rewind the tape is output and operator intervention is required. 

An exception to the use of the jump table is the reference to TABLES. TABLES is used as a pointer 
to a data area of memory and is used only as a pointer. It must be noted that the first two locations in 
memory pointed to by TABLES must contain the address of TABLES+3. 

Users can load a simple version of the Assembler by loading the Assembler absolute code module found 
in barcode form in Appendix E. The overlay package may be loaded on top of the Assembler and the com¬ 
bined code can be dumped to a convenient mass storage device such as a floppy disk or cassette tape. 
Future modifications can be made in two ways. First, the overlay package can be tailored to the unique 
requirements of a particular system. The absolute code may be dumped generating a new load module. 
Second, the whole package of Assembler and overlay can be linked from object files and a new load module 
generated. 
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APPENDIX D 


RA6800ML Assembly Language Object Code In Absolute 

Hexadecimal Format 
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The listing below gives the absolute object code for the relocatable macro assembler RA6800ML in 
hexadecimal format. This listing can be used to manually enter the program or to verify entry of the 
program via the PAPERBYTETM bar code representation given in Appendix E. Note that each line does 
not correspond directly to the variable length records of the bar codes, but uses a fixed length of 16 data 
bytes per line. The data is preceded by a 2 byte address field. Note that this program begins at hexadecimal 
0100. Information on how to use this version of the Assembler to bootstrap RA6800ML for the first time 
is given in Appendix C, with Appendix F giving details of 10 routines appropriate for the bootstrap process. 
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Beginning on the following page is a complete machine readable representation (PAPERBYTETM bar 
codes) of the object code for the Hemenway relocatable macro assembler RA6800ML. This object code 
was created by assembling the Assembler. See appendix G for a listing of the 6800 assembly language 
source code of the Assembler. 

This representation uses the absolute loader format, in which each bar code frame (one line of bar codes 
running from top to bottom of the page) contains a 2 byte address followed by data which is loaded in 
ascending order starting at that address. A hexadecimal listing that can be used to verify the input from bar 
codes is given in Appendix D. For details on the frame format and absolute loader format used in this and 
other PAPERBYTETM books, see PAPERBYTE publication Bar Code Loader by Ken Budnick. The book 
contains a brief history on bar codes, a general bar code loader algorithm with flowcharts, and complete 
program listings for 6800, 6502, and 8080 or Z-80 based systems. 

Information on how to use this version of the Assembler to bootstrap RA6800ML for the first time is 
given in Appendix C, with Appendix F giving details of 10 routines appropriate for the bootstrap process. 
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Input and Output Routines for RA6800ML in Absolute Format with 
PAPERBYTE™ Bar Code Representation 
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These overlay modules contain external reference code to the relocatable macroassembler RA6800ML 
for use with a standard MIKBUG-based system. This overlay is designed to facilitate easy initial imple¬ 
mentation of RA6800ML and serve as a template for user developed software. These routines can be used 
in conjunction with the version of RA6800ML given in Appendices D and E to bootstrap RA6800ML for 
the first time. Details of the bootstrap process are given in Appendix C. On page 93 is the machine readable 
representation (PAPERBYTETM bar codes) of the object code of the 10 routines listed below. The repre¬ 
sentation uses the absolute loader format, in which each bar code frame (one line of bars running from top 
to bottom of the page) contains a 2 byte address followed by data which is loaded in ascending order start¬ 
ing at that address. For details on the frame format and absolute loader format used in this and other 
PAPERBYTETM books, see the PAPERBYTE publication Bar Code Loader by Ken Budnick. This book 
contains a brief history on bar codes, a general bar code loader algorithm with flowcharts, and complete 
program listings for 6800, 6502, and 8080 or Z-80 based systems. 
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EOF 

FCC 

/EOF: NEXT TAPE,TYPE CR/ 


19F6 

3A204E 






I9F9 

455854 






I9FC 

205441 






I9FF 

50452C 






1A02 

545950 






1 AO 5 

452043 






IA08 

52 





00070 

1A09 

ODOA 


FDB 

SODOA 


0007 1 

1AOB 

04 


FCB 

4 


00073 

IAOC 

0002 

DXSV 

RMB 

2 

SAVE SPACE FOR TEMP STORAGE OF 

00074 



* 



THE INDEX REGISTER 

00076 

IAOE 

1A1 0 

TABLES 

FDB 

*+2 

START OF SYMBOL TABLE 

00078 




END 
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0000000000000000000000000000000000000000 
00000000001 1 I 1 1 1 1 1 I 122222222223333333333 

0123456789012345678901234567890123456789 


0 0 0 1 I 1 1 I 1 1 
33499999AA 
458ABCDF00 
AE8048C16E 



0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 l 1222222222233 3 3333333 

0123456789012345678901234567890123456789 
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APPENDIX G 


Assembly Language Source Listing of RA6800ML 


95 




This assembly was executed using the relocatable macro assembler RA6800ML. The object code in the 
assembly listing can be used without relocation if the program is loaded at location zero (hexadecimal) in 
memory. When creating a final object module for the Assembler, hand entered overlays for the Motorola 
MIKBUG monitor or the ICOM Floppy Disk Operating System 10 routines will be necessary. The routines 
given in Appendices J and K can be used directly with their respective operating systems, or as guidelines 
for coding patches to interface other monitor programs. 


0000 

0000 

N 


NAM 

ASM 

RESIDENT MACRO ASSEMBLER 

007D 

20 


FCB 

S20 




★ 



(RELOCATING AND LINKING) 

007fc 

42 


FCC 

'BSR' 




★ 



VERSION 1.0 

00 dl 

1019 

r 

FDB 

ADDRS 




* 




0083 

8J 


FCB 

SSD 




★ 

C COPYRIGHT 1977 

JACK E. HEMENWAY 

00 d 4 

42 


FCC 

'BVC' 




★ 

BOSTON MA 

SS. ALL 

RIGHTS RESERVED 

0037 

1019 

R 

FDB 

ADDRS 




* 




0089 

2d 


FCB 

S28 




* 




008A 

42 


FCC 

'BVS' 

o 

6 

o 

Ob A042 



LOS 

#SA042 

OOdu 

1019 

R 

FDB 

AUDRB 




★ 




008F 

29 


FCB 

$29 




★ 




0090 

4 3 


FCC 

'CBA' 

0003 

7b' 03db 

H 


JMP 

PASS 1 


0093 

I06A 

R 

FDB 

ALXJR9 




★ 




009b 

1 1 


FCB 

S 1 1 




★ 




009O 

43 


FCC 

'CLC' 




* 




00 y9 

I06A 

R 

FDB 

ADUH9 




★ 

MNTAB MNEMONIC TABLE * 

009B 

OC 


FCB 

SOC 




* 




009C 

43 


FCC 

'CLI' 

0006 

41 


MNTAB FCC 

'ABA' 


009F 

I06A 

R 

FDB 

ADUH9 

0009 

I06A 

R 


FOB 

AUDH9 


OOA1 

OE 


FCB 

SOE 

OOOB 

1 B 



FCB 

SIB 


00A2 

43 


FCC 

'CLR' 

oooc 

41 



FCC 

'AUC' 


00 A b 

0EE9 

R 

FDB 

ADUR3 

OOOr 

0E00 

R 


FOB 

ADDHI 


00 A7 

OF 


FCB 

SOF 

0011 

09 



FCB 

S09 


00 Ao 

4 3 


FCC 

'CLV' 

0012 

41 



FCC 

'ADU' 


00 A b 

I06A 

R 

FDB 

ADDR9 

OOlb 

otoo 

R 


FDB 

AUURI 


OOAL) 

OA 


FCB 

SOA 

001/ 

OB 



FCB 

SOB 


OOAfc 

43 


FCC 

'CMN' 

OOlb 

41 



FCC 

'AND' 


OOBI 

1 1U4 

R 

HJU 

POCMN 

001 B 

OEOO 

R 


FDB 

A DOR 1 


00 B3 

EE 


FCB 

SFF 

00 ID 

04 



FCB 

S04 


oo b 4 

43 


FCC 

'CMR' 

00 IE 

41 



FCC 

'ASL' 


00 b 7 

OEOO 

R 

FDB 

ADURI 

0021 

0EE9 

R 


FDB 

AUUR3 


00I3V 

01 


FCB 

SOI 

0023 

Ob 



FCB 

SOS 


OOBA 

43 


FCC 

'COM' 

0024 

41 



FCC 

'ASR' 


OOL5L) 

0EE'9 

R 

FDB 

ADDR3 

0027 

0EF9 

R 


FDB 

AUUR3 


00 bh 

03 


FCB 

S03 

0029 

07 



FCB 

S07 


OOCO 

43 


FCC 

'CPX' 

002A 

42 



FCC 

'BCC' 


00C3 

0F68 

R 

FDB 

ADDRb 

002U 

1019 

R 


FDB 

A OUR 3 


00 Cb 

dC 


FCB 

SBC 

0021- 

24 



FCB 

S24 


0006 

44 


FCC 

'DAA' 

0030 

42 



FCC 

'BCS' 


00C9 

I06A 

R 

FDB 

ADDR9 

0033 

1019 

R 


FDB 

ADDRS 


OOCB 

19 


FCB 

S 19 

003b 

2 a 



FCB 

S2b 


00 CC 

44 


FCC 

'DEC' 

0036 

42 



FCC 

'BLO' 


OOCF 

0EE9 

R 

FDB 

A DDR 3 

0039 

1019 

R 


FUB 

AUDH8 


oo m 

OA 


FCB 

SOA 

003B 

21 



FCB 

S27 


0002 

44 


FCC 

'DES' 

003C 

42 



FCC 

'BOE' 


00 Lb 

1 06 A 

R 

FDB 

ADDR9 

0031- 

1019 

R 


FUB 

AUORS 


00 U 7 

34 


FCB 

S34 

0041 

2C 



FCB 

S2C 


00 Oo 

44 


FCC 

'UEX' 

0042 

42 



FCC 

'BGT' 


000b 

1 OoA 

If 

FUB 

ADDR9 

004d 

1019 

R 


FDB 

AUDRB 


00 Jo 

09 


FCB 

S09 

0047 

2E 



FCB 

S2E 


0001: 

4b 


FCC 

'END' 

004b 

42 



FCC 

'BHI' 


00 h l 

I24E 

If 

FDB 

PQENU 

004 B 

1019 

R 


FUB 

ADDRS 


00 E 3 

HE 


FCB 

SFF 

0040 

22 



FCB 

S22 


00 b 4 

4 j 


FCC 

'ENT' 

004 E 

42 



FCC 

'BI i' 


00b 7 

1 3U8 

R 

FUB 

POENT 

00b 1 

OEOO 

R 


FUB 

ADDHI 


00 E9 

EE 


FCB 

SFF 

00b 3 

Ob 



FCB 

SOb 


00EA 

4j 


FCC 

'FOR' 

00b 4 

42 



FCC 

'BLE' 


00 ED 

OEOO 

R 

FUB 

ADURI 

00b / 

1019 

R 


FUB 

ADDRS 


00 EE 

03 


FCB 

SOb 

OObV 

2r 



FCB 

S2F 


00 EO 

4b 


FCC 

'ECU' 

OObA 

42 



FCC 

'BLS' 


00 E 2 

14b 1 

R 

FUB 

ROEQU 

00 all 

1019 

R 


FUB 

a no R s 


00 Eb 

FE 


FCB 

SFF 

00 ac 

23 



FCB 

$23 


OOi-o 

4b 


FCC 

'EXT' 

0000 

42 



FCC 

'BLT ' 


OOF 9 

l 4 AF 

R 

FUB 

POE XT 

0063 

1019 

R 


FUB 

ADDRS 


00 EB 

HE 


FCB 

SFF 

006b 

20 



FCB 

S2D 


00 FC 

46 


FCC 

'FCb' 

00 60 

42 



FCC 

'BM I' 


OOFE 

lb 1 1 

If 

FUB 

POFCB 

0069 

1019 

If 


FUB 

ADDRS 


0101 

FF 


FCB 

SFF 

006 b 

2b 



FCB 

S2B 


0102 

46 


FCC 

'FCC' 

OOOC 

42 



FCC 

'BNE' 


01 Ob 

1 b46 

R 

FUB 

POFCC 

006F 

1019 

H 


FUB 

ADDRS 


010/ 

FF 


FCB 

SFF 

0071 

26 



FCB 

S26 


01 Ob 

46 


FCC 

'FUb' 

00/2 

42 



FCC 

'BPL' 


01 OB 

lb9L) 

R 

FUB 

POFUB 

00 /:j 

1019 

R 


FUB 

ADDRS 


OIOD 

FF 


FCB 

SFF 

00// 

2A 



FCB 

S2A 


OIOE 

49 


FCC 

'IF ' 

007b 

42 



FCC 

'BRA' 


0111 

IbFI 

R 

FDB 

PDIF 

007b 

1019 

R 


FUB 

ADDRS 


0113 

FF 


FCB 

SFF 


97 



01 14 

49 


FCC 

'INC' 

011/ 

0EF9 

IV 

FOB 

ADDR3 

01 19 

oc 


Feb 

$oc 

01 IA 

49 


FCC 

'INS' 

01 lb 

I06A 

H 

FOB 

AD0R9 

01 IF 

31 


FCB 

S3! 

0120 

49 


Fee 

' I NX' 

0123 

I06A 

R 

FOB 

ADDU9 

01 2d 

06 


FCB 

SOB 

0126 

4A 


FCC 

'JMR' 

0129 

OFF 6 

R 

FOB 

ADDK7 

0I2B 

6E 


FCB 

S6E 

0I2C 

4A 


FCC 

' JSR' 

01 2F 

OFfc'6 

R 

FOB 

A DDR/ 

0131 

AO 


FCB 

SAD 

0132 

4C 


FCC 

'LDA' 

013b 

OEOO 

R 

FOB 

ADDRI 

0137 

06 


FCB 

$06 

0136 

4C 


FCC 

'LOS' 

0I3B 

OF 68 

R 

FOB 

ADDRb 

01 30 

8E 


FCB 

S8E 

0I3E 

4C 


FCC 

'LDX' 

0141 

OE'68 

R 

FOB 

ADDR5 

0143 

Cb 


FCB 

SCE 

0144 

4C 


FCC 

'LSR' 

0147 

0EF9 

R 

FOB 

ADDH3 

0149 

04 


FCB 

$04 

01 4A 

40 


FCC 

'MAC' 

0I4U 

I 031 

R 

FOB 

ROMAC 

01 4F 

FF 


FCB 

SFF 

01 bO 

4E 


FCC 

'NAM' 

01 b3 

1726 

R 

FOB 

FONAM 

01 bb 

FF 


FCB 

SFF 

01 D6 

4E 


FCC 

'NEC' 

01 b9 

0EF9 

R 

FOB 

A DOR 3 

015b 

00 


FCB 

SOO 

01 bC 

4E 


FCC 

'NIf' 

01 5f 

1 7bB 

R 

FOB 

RON IF 

0161 

FE 


FCB 

SFF 

0162 

4E 


FCC 

'NOR' 

016b 

1 OoA 

R 

FOB 

AD0R9 

016/ 

02 


FCB 

S02 

0166 

4F 


FCC 

'ORA' 

016b 

OEOO 

R 

FOB 

ADORI 

0160 

OA 


FCB 

SOA 

01 6E 

JO 


FCC 

'PAG' 

01 71 

I7A0 

R 

FDB 

ROPAG 

01 73 

FF 


FCB 

SFF 

0174 

DO 


FCC 

'PSH' 

01 77 

0F48 

R 

FDB 

A DOR 4 

01 79 

36 


FCB 

$36 

01 /A 

DO 


FCC 

'PUL' 

017u 

0F4B 

R 

FDB 

AU0R4 

01 /F 

32 


FCB 

S 32 

OIBO 

D2 


FCC 

'RMb' 

0163 

1 7CI 

H 

FDB 

PORMB 

013b 

FF 


FCB 

SFF 

0166 

52 


FCC 

'ROL' 

0169 

0EF9 

R 

FDB 

ADDR3 

01 6b 

09 


FCB 

S09 

0I6C 

52 


FCC 

'ROR' 

0I6E 

0EF9 

R 

FDB 

ADDR3 

0191 

06 


FCB 

S06 

0192 

52 


FCC 

'RTI' 

019b 

I06A 

R 

FDB 

ADDR9 

0197 

3B 


FCB 

S3B 

0196 

52 


FCC 

'RTS' 

01 9B 

I06A 

R 

FDB 

ADDR9 

0190 

39 


FCB 

$39 

0I9E 

53 


FCC 

'SBA' 

01A 1 

1 06A 

R 

FDB 

AD0R9 

01 A3 

10 


FCB 

$10 

0IA4 

53 


FCC 

'SBC' 

0IA7 

OEOO 

R 

FDB 

ADDRI 

0IA9 

02 


FCB 

$02 

01 AA 

53 


FCC 

'SEC' 

01 AO 

I06A 

R 

FDB 

AD0R9 

01AF 

00 


FCB 

SOD 

OIBO 

53 


FCC 

'SEI' 

0IB3 

I06A 

R 

FDB 

A0DR9 

01 Bb 

OF 


FCB 

SOF 

01 66 

53 


FCC 

'SEV' 

01 B9 

I06A 

R 

FDB 

ADDR9 

01 BB 

OB 


FCB 

SOB 

01 BC 

53 


FCC 

'STA' 

01 BF 

0E9I 

R 

FOB 

ADDR2 

OICI 

07 


FCB 

$07 

0IC2 

53 


FCC 

'STS' 

OlCb 

OF DA 

R 

FOB 

ADDR6 

01 C7 

8F 


FCB 

S8F 

01 C6 

53 


FCC 

'SIX' 

OICB 

OFDA 

R 

FOB 

ADDR6 


01 CL 

i CF 


FCB 

SCF 


OICE 

53 


FCC 

'SUB' 

0101 

OEOO 

H 

FDB 

ADDRI 

0103 

00 


FCB 

SOO 


01 D4 

53 


FCC 

'SrtI 

/ 

0107 

I06A 

R 

FDB 

ADDR9 

0ID9 

3F 


FCB 

S3F 


01 DA 

54 


FCC 

'TAb' 

01 00 

I06A 

R 

FDB 

ADUR9 

OIOF 

16 


FCB 

SI6 


01 EO 

54 


FCC 

'TAR' 

0IE3 

I06A 

R 

FDB 

ADDR9 

01 E5 

06 


FCB 

$06 


0IE6 

54 


FCC 

'TBA' 

0IE9 

I06A 

R 

FDB 

AD0R9 

01 Eb 

1 / 


FCB 

S 1 7 


01 EC 

54 


FCC 

'TPA 


01 EF 

106A 

R 

FDB 

ADDR9 

01 FI 

07 


FCB 

$07 


0IF2 

54 


FCC 

'TS'l 

V 

01 Fb 

0EF9 

R 

FDB 

ADDH3 

01 F7 

OD 


FCB 

SOD 


0IF8 

54 


FCC 

'TSX 

/ 

OIFB 

I06A 

R 

FDB 

AD0R9 

01 FO 

30 


FCB 

$30 


01 FE 

54 


FCC 

'TXS 

y 

0201 

I06A 

R 

FDB 

ADDR9 

0203 

35 


FCB 

S35 


0204 

57 


FCC 

'WAI 


0207 

I06A 

R 

FDB 

ADDR9 

0209 

3E 


FCB 

S3E 





* CHARACTER 

* 

TABLE 

020A 

00 


CHRTAB FCB 

SOO 

SPACE 

020b 

00 


FCB 

SOO 

» 

02 OC 

00 


FCB 

SOO 

M 

020D 

04 


FCB 

S04 

# 

020E 

04 


FCB 

$04 

$ 

020F 

04 


FCB 

$04 

% 

0210 

00 


FCB 

SOO 

A 

021 1 

04 


FCB 

S04 

/ 

0212 

00 


FCB 

soo 

( 

0213 

00 


FCB 

SOO 

) 

0 214 

24 


FCB 

S24 

★ 

0215 

24 


FCB 

S24 

♦ 

0216 

04 


.FCB 

S04 

« 

0217 

24 


FCB 

S24 


0216 

60 


FCB 

S80 

• 

0219 

24 


FCB 

S24 

/ 

021 A 

42 


FCB 

S42 

0 

021b 

42 


FCB 

S42 

1 

02 1C 

42 


FCB 

S42 

2 

0210 

42 


FCB 

S42 

3 

02 IE 

42 


FCB 

$42 

4 

02 IF 

42 


FCB 

S42 

5 

0220 

42 


FCB 

S42 

6 

0221 

42 


FCB 

$42 

7 

0222 

42 


FCB 

$42 

8 

0223 

42 


FCB 

S42 

9 

0224 

00 


FCB 

SOO 

I 

0225. 

00 


FCB 

SOO 

I 

0226 

00 


FCB 

soo 

< 

0227 

00 


FCB 

soo 

m 

0228 

00 


FCB 

$00 

> 

0229 

00 


FCB 

soo 

7 

022A 

80 


FCB 

S80 

« 

022B 

63 


FCB 

$83 

A 

022C 

83 


FCB 

$83 

B 

02 2D 

82 


FCB 

$82 

C 

022E 

82 


FCB 

$82 

D 

022F 

82 


FCB 

S82 

E 

0230 

82 


FCB 

$82 

F 

0231 

60 


FCB 

$80 

G 

0232 

80 


FCB 

$80 

H 

0233 

80 


FCB 

$80 

I 

0234 

80 


FCB 

$80 

J 

0235 

80 


FCB 

$80 

K 

0236 

60 


FCB 

$80 

L 

0237 

80 


FCB 

$80 

M 

0238 

80 


FCB 

$80 

N 

0239 

80 


FCB 

$80 

0 

02 3A 

80 


FCB 

$80 

P 

023B 

80 


FCB 

$80 

Q 

023C 

80 


FCB 

$80 

R 

023D 

80 


FCB 

$80 

S 

023E 

80 


FCB 

$80 

T 

023F 

80 


FCB 

$80 

U 

0240 

80 


FCB 

$80 

V 

024 1 

80 


FCB 

$80 

W 

0242 

81 


FCB 

$81 

X 

0243 

80 


FCB 

$80 

Y 



0244 

80 



FCB 

$80 Z 

024b 

00 



FCB 

$00 t 

0246 

00 



FCB 

$00 \ 

0247 

00 



FCB 

$00 I 

0248 

00 



FCB 

$00 CAROT 

0249 

00 



FCB 

$00 UNDERLINE 




* MAIN 

it 

PROGRAM LOOP * 

02 4A 

7E 0000 

X 

it 

EXT 

TABLES 

0240 

7E 0000 

X 


EXT 

UPDATE 

02 bO 

7E 0000 

X 


EXT 

MONTOR 

02b3 

7E 0000 

X 


EXT 

GETB 

02b6 

7E 0000 

X 


EXT 

OUTB 

02b9 

7E 0000 

X 


EXT 

NR EOF 

02bC 

7E 0000 

X 


EXT 

INITIO 

02oF 

7E 0000 

X 


EXT 

RESTR 

0262 

1861 

N 


ENT 

PUATA1 

0262 

0388 

N 


ENT 

INEEE 

0262 

I3BE 

N 


ENT 

CRLF 

0262 

0002 


MACT'BL 

RMB 

2 MACRO TABLE 

0264 

0002 


MACENO 

RMB 

2 MACRO TABLE END 

0266 

0002 


MACSTK 

RMB 

2 MACRO STACK 

0268 

0002 


SYMTAB 

RMB 

2 SYMBOL TABLE 

026A 

0002 


NSYM 

RMB 

2 NUMBER OF SYMBOLS 

02 6C 

0002 


SYMEND 

it 

RMB 

2 SYMTAB END 

026E 

0001 


* 

OPTNS 

RMB 

1 OPTIONS 

026F 

0002 


LNUM 

RMB 

2 LINE NUMBER 

0271 

0002 


TSTPH 

RMB 

2 PHASING ERROR CHECK LOC. 

0273 

0002 


LC 

RMB 

2 LOCATION COUNTER 

027b 

0001 


PASS 

RMB 

1 PASSl 0*1, FF*2 

0276 

0001 


LBFLG 

RMB 

1 0=N0 LABEL 

02 77 

0001 


RELFLG 

RMB 

1 RELOCATION FLAG 00»NO,.FF«YES 

027a 

0001 


CMNFLG 

RMB 

1 COMMON FLAG " 

0279 

0001 


EXTFLG 

RMB 

1 EXTERNAL FLAG » 

02 7A 

0001 


ENTFLG 

RMB 

1 ENTRY FLAG « 

02 7B 

0002 


OESCRA 

RMB 

2 DESCRIPTOR ADDRESS 

0270 

0001 


UESCRC 

RMB 

1 DESCRIPTOR COUNT 

02 7E 

0002 


CUCHAH 

RMB 

2 CURRENT CHAR ADDRESS 

0280 

0002 


CULINE 

RMB 

2 CURRENT LINE ADDRESS 

0282 

0002 


SYMPTR 

RMB 

2 SYMTAB POINTER 

0284 

0001 


LCN 

RMB 

1 #■ BYTES IN AN INSTRUCTION 

028b 

0002 


LSAVE 

RMB 

2 LC SAVE LOCATION 

0287 

0001 


LCOUNT 

RMB 

1 # LINES ON A PAGE 

0288 

0002 


ECOUNT 

RMB 

2 ERROR COUNT 

028A 

0002 


MSTKPT 

RMB 

2 MACRO STACK POINTER 

028C 

0002 


STKSAV 

RMB 

2 MACRO STACK POINTER SAVE 

028E 

0002 


MXSAV1 

RMB 

2 MACRO TEMP SAV 

0290 

0002 


MXSAV2 

RMB 

2 MACRO TEMP SAV 

0292 

004 8 


MACLIN 

RMB 

72 MACRO EXPANSION LINE AREA 

02DA 

0032 


MACPAR 

RMB 

50 MACRO PARAMETER AREA 

030C 

0001 


MACFLG 

RMB 

1 MACRO MODEl OO-NORMAL, FF-MACRO 

0300 

0002 


MACPTR 

RMB 

2 POINTER TO MACTABLE 

030 F 

0002 


MACSAV 

RMB 

2 MACRO X-REG SAVE AREA 

0311 

0002 


MCLPTR 

RMB 

2 MACLIN POINTER 

0313 

0002 


CMf(LC 

RMB 

2 COMMON-BLOCK LC 

0315 

00b 0 


INLINE 

RMB 

80 INPUT LINE 

036b 

0010 



RMB 

16 

037b 

0375 

R 

I FSTK 

EQU 

* IF STACK 

0375 

0002 


0IFSTK 

RMB 

2 IF STACK POINTER 

0327 

0001 


IFFLG 

it 

RMB 

1 IF FLAG 00=NO ASSEMBLY I FF*ASSEMBLY 

0378 

45 


OPTMSG 

FCC 

'ENTER OPTIONS* 

03a/ 

04 


•k 

FCB 

4 

0388 

7E El AC 


it 

INEEE 

JMP 

$EIAC INPUT A CHAR FROM TTY 

03 dB 

7E Ei01 


OUTEEE 

JMP 

$E 1U1 


* 


* 

* 

* PASS I IS ENTRY POINT fO ASSEMBLER 

★ 

★ 

033E 7F 027b R PASSI CLR PASS PASSi=l 

03VI CE 03 70 R OP IN LUX #OPTMSG 

0394 BO 1861 R JSR PUATAI 

* 

03V7 7P 02oE R CLR OPTNS 

03VA 73 026E R COM OPTNS NL.NO.NM.NS 

* 

039D BO 0388 R ORINI JSR INEEE GET OPTION 

03A0 81 00 CMP A #$00 CR 7 

03A2 27 26 BEQ 0PIN3 YES 

It 

03A4 81 4C CMP A #'L LIST? 


99 



03A6 

26 

04 



BNE 

*+6 

NO 

03Aa 

86 

70 



LOA 

A #$70 

YES 

03 AA 

20 

16 


£ 

BRA 

0PIN2 


03 AC 

81 

4F 



CMP 

A #'0 

OBJECT? 

03AE 

26 

04 


jf 

BNE 

*♦6 

NO 

0380 

86 

BO 



LDA 

A #$B0 

YES 

03 B2 

20 

OE 



BRA 

0PIN2 


03 B4 

81 

53 



CMP 

A #'S 

SYMBOL TABLE? 

0380 

26 

04 


■ff 

BNE 

*♦6 

NO 

03BB 

86 

DO 



LOA 

A #$D0 

YES 

03BA 

20 

06 



BRA 

0PIN2 


03 SC 

81 

40 



CMP 

A #'M 

MACRO EXPANSION LISTING? 

03BE 

26 

DO 



BNE 

OPINI 

NO 

03C0 

86 

EO 


k 

If 

LOA 

A #$E0 

YES 

03 C2 

84 

026E 

R 

0PIN2 

AND 

A OPTNS 

TURN OFF “NOT" BIT 

03 Cb 

B7 

02 6E 

R 


STA 

A OPTNS 

03C8 

20 

D3 ' 


jf 

BRA 

OPINI 

GET ANOTHER OPTION 

03CA 

BD 

13BE 

R 

0PIN3 

JSR 

CRLF 



★ 


* CONFIGURE TABLES 


03CD 

FE 

024 B 

R 

•k 

LDX 


TABLES*1 


0300 

EE 

00 



LDX 


Q,X 

GET START OF TABLES 

03D2 

FF 

0262 

R 


STX 


MACTBL 

INIT MACTBL 

03 D5 

FF 

07E3 

R 


STX 


PSTNGI 


0308 

CE 

0800 



LDX 


#$0800 


03DB 

FF 

07E5 

R 


STX 


PSYNG2 


03 DE 

CE 

07E3 

R 


LUX 


#PSTNGI 


03EI 

HD 

08EC 

R 


JSR 


AUDI 6 


03E4 

FE 

07E3 

R 


LDX 


PSTNGI 


03E7 

FF 

0264 

R 


srx 


MACEND 

IN IT MACEND 

03EA 

CE 

0100 



LDX 


#$0100 


03ED 

FF 

07E5 

R 


SIX 


PSTNG2 


03F0 

CE 

07E3 

R 


LUX 


#PSTNGI 


03F3 

BD 

OBEC 

R 


JSR 


ADD 16 


03 F6 

FE 

07E3 

R 


LDX 


PSlNGl 


03 F9 

FF 

0266 

R 

If 

STX 


MACSTK 

INIT MACSTK 

03FC 

08 




INX 




03 FD 

FF 

0268 

R 


STX 


SYMTAB 

INIT SYMTAB 

0400 

FF 

07E5 

H 


STX 


PSTN02 


0403 

CE 

3FFF 

R 


LDX 


#ASM*S3FFF 16K 

0406 

FF 

07E3 

R 


STX 


PSTNGI 


040V 

CE 

07E3 

R 


LDX 


#PSTNGI 


04 DC 

BD 

O0FD 

R 


JSR 


SUBI 6 


04 OF 

B6 

07E3 

R 


LDA 

A 

PSTNGI 


0412 

F6 

07E4 

R 


LUA 

B 

PSTNGI*1 


0415 

CE 

0009 



LDX 


#000» 


0418 

FF 

07E5 

R 


STX 


PSTNG2 


04 IB 

CE 

07 E5 

R 


LDX 


#PSTNG2 


04 IE 

BD 

OBAI 

R 


JSR 


DIVI6 


0421 

B7 

026A 

R 


STA 

A 

NSYM 


0424 

F7 

0268 

R 


STA 

B 

NSYM+I 

INIT NSYM 

0427 

CE 

0009 



LUX 


#0009 


042A 

FF 

07E3 

R 


STX 


PSTNGI 


042D 

CE 

07E3 

R 


LDX 


#PSTNGI 


0430 

BD 

0B7D 

R 


JSR 


MPYI6 


04 33 

B7 

0 7E3 

R 


STA 

A 

PSTNGI 


0436 

F7 

07E4 

R 


STA 

B 

PSTNGI+1 


043V 

FE 

0268 

R 


LDX 


SYMTAB 


043C 

FF 

07E5 

R 


STX 


PSTNG2 


043F 

CE 

07E3 

R 


LDX 


fPSTNGI 


0442 

BD 

OBEC 

R 


JSR 


ADDI 6 


0445 

FE 

07 E3 

R 


LDX 


PSTNGI 


0448 

FF 

02 6C 

R 

* 

STX 


SYMEND 


044B 

86 

20 


★ 

LDA 

A 

#$20 

BLANKS TO SYMTAB 

044D 

FE 

0268 

R 


LDX 


SYMTAB 

POINT TO SYMTAB 

0450 

A7 

00 



STA 

A 

Q,X 

BLANK LOCATION 

0452 

08 




INX 



BUMP POINTER 

0453 

BC 

026C 

R 


CPX 


SYMEND 

ALL DONE ? 

0456 

26 

F8 



BNE 


*-6 

NO 

0458 

CE 

0000 



LDX 


#$0000 


045B 

FF 

0271 

R 


STX 


TSTPH 

CLEAR TSTPH 

045E 

FF 

0288 

R 


STX 


ECOUNT 

CLEAR ECOUNT 

0461 

CE 

0000 



LDX 


#$0000 


0464 

FF 

0313 

R 


STX 


CMNLC 

INIT COMMON LC 


* 


100 



0467 

BD 

1089 

R PASS2 

JSR 


ADR I NT 

CLEAR FLAGS 

04 6A 

7F 

0287 

R 

CLR 


LCOUNT 

LCOUNT«=0 

04 6U 

FE 

0262 

R 

LDX 


MACTBL 

INIT MACPTR 

0470 

FF 

030D 

R 

STX 


MACPTR 


0473 

7F 

03 OC 

R 

CLR 


MACFLG 

MODE* = NON-MACRO 

04 76 

FE 

0266 

R 

LUX 


MAC ST K 

INIT MACRO STACK POINTER 

0479 

FF 

028A 

R 

STX 


MSTKPT 


04 7C 

86 

FF 


LDA 

A 

#$FF 


047E 

B7 

03 77 

R 

STA 

A 

IFFLG 

INIT TO ASSEMBLE 

0431 

CE 

0375 

R 

LDX 


#IFSTK 


04 d4 

FF 

0375 

R 

STX 

1 

fllFSTK 

INIT IFSTK 

0437 

CE 

0000 


LDX 


#$0000 


04 8A 

FF 

0273 

R 

STX 


LC 

INIT LC 

048U 

FF 

026F 

R 

STX 


LNUM 

INIT LNUM 


* 


* MAIN IS THE DRIVER SECriON OR TOR LEVEL 

* OF THE ASSEMBLER 


* 


04 #0 

BD 

0568 

R 

MAINI 

JSR 

RDLINE 

0493 

7 F 

02 76 

R 


CLR 

LBFLG 

0496 

FE 

026F 

R 


LDX 

LNUM 

04 99 

08 




INX 


049A 

FF 

026F 

R 


STX 

LNUM 

04 9D 

FE 

0280 

R 


LUX 

CULINE 

04 AO 

A6 

00 



LDA 

A 0,X 

04 A2 

81 

2A 



CMP 

A #$2A 

04 A4 

26 

08 



BNE 

MAIN3 

04 A6 

BD 

1089 

R 

MAIN 1 A 

JSR 

ADRI NT 

04A9 

BD 

OCOE 

R 


JSR 

PRINTL 

04 AC 

20 

E2 



BRA 

MAINI 

04 AE 

7D 

0377 

R 

MAIN3 

1ST 

IFFLG 

04BI 

26 

22 



BNE 

MAIN3C 

04 B3 

81 

20 



CMP 

A #$20 

04 B5 

27 

03 



BEQ 

MAIN3A 

04 87 

BD 

06F6 

R 


JSR 

NXTOK 

04BA 

BD 

06F6 

R 

MAIN3A 

JSR 

NXTOK 

04BD 

B6 

02 7D 

R 


LDA 

A UESCRC 

04CO 

81 

03 



CMP 

A #3 

04 C2 

22 

E2 



BHI 

MAINIA 

04C4 

BD 

0940 

R 


JSR 

MNLKP 

04 C7 

8C 

I5FI 

R 


CPX 

#POIF 

04CA 

27 

07 



BEO 

MAIN3B 

04CC 

8C 

I75B 

R 


CPX 

#PONIF 

04 CF 

27 

02 



BEQ 

MAIN3B 

04UI 

20 

U3 



BRA 

MAINIA 

04 D3 

6E 

00 


MAIN3B 

JMP 

0,X 


GET A LINE OF SOURCE 
SET FLAG TO NO LABEL 


BUMF LNOM 
POINT TO LINE 
GET COL I 
COMMENT? 

NO 

CLEAR PRINT FLAGS 
PRINT THE LINE 


ASSEMBLING? 

YES 

COL I BLANK? 

YES 

SCAN OVER LABEL 
GET MNEMONIC 
GET COUNT 
<= 3 ? 

NO 

SEARCH MNTAB 
IF ? 

YES 

NIF? 

YES 

NEITHER 

GOT TO IF OR NIF PROCESSING ROUTINE 


★ 

0405 81 20 MAIN3C CMP A #$20 COL I BLANK? 


04 D7 

27 

ID 



BEO 


MAIN5 

YES 

04D9 

BD 

06F6 

R 


JSR 


NXTOK 

GET LABEL 

04DC 

Cl 

01 



CMP 

B 

#$01 

OK? 

04 DE 

27 

OB 



BEQ 


MAIN4 

YES 

O4E0 

CE 

0205 



LDX 


#$0205 

E RROR 

04E3 

BD 

OUBB 

R 


JSR 


PRINTE 


04E6 

BD 

OCOE 

R 


JSR 


PRINTL 

PRINT LINE 

04EV 

20 

A5 



BRA 


MAINI 


04EB 

7C 

0276 

R 

MAIN4 

INC 


LBFLG 

SET LABEL FLAG 

04 EE 

7D 

0275 

R 


TST 


PASS 

PASS? 

04FI 

26 

03 



BNE 


MAIN5 

PASS2 

04 F3 

BD 

07F8 

R 


JSR 


STOSYM 

STORE LABEL IN SYMTAB 

04F6 

BD 

06F6 

R 

MAIN5 

JSR 


NXTOK 

GET MNEMONIC 

04F9 

Cl 

01 



CMP 

B 

#$01 

OK? 

04 FB 

27 

OB 



BEQ 


MAIN7 

YES 

04 FU 

CE 

0202 


MAIN6 

LDX 


#$0202 

ERROR 

0500 

BD 

OU BB 

R 


JSR 


PRINTE 


0503 

BD 

OCOE 

R 


JSR 


PR I NTL 

PRINT LINE 

0506 

20 

88 



BRA 


MAINI 


0508 

BD 

0940 

R 

MAIN7 

JSR 


MNLKP 

SEARCH MNTAB 

050B 

81 

00 



CMP 

A 

#$00 

IN MNTAB? 

050D 

27 

2D 



BEQ 


MAIN9 

YES 

050F 

BD 

0857 

R 


JSR 


LKPSYM 

MACRO NAME? 

0512 

Cl 

FF 



CMP 

B 

#$FF 

IN SYMTAB? 

0514 

2 7 

28 



BEQ 


MAINS 

NO,ERROR 

0516 

C5 

20 



BIT 

B 

#$20 

MACRO NAME? 


101 



Ob 1 o 

27 

24 


* 

BEO 

MAINS 

NO,ERROR 

Ob 1 A 

7D 

03UC 

R 

★ 

1ST 

MACfLG 

MACRO MODE? 

Ob lu 

2/ 

06 



BEQ 

MAIN7A 

NO 





★ PISH 

PRESENT MACRO 

ONTO MACSTACK 

Ob IF 

BD 

0637 

R 


JSR 

MACPSH 


Ob 22 

70 

030C 

R 


1ST 

MACFLG 

ERRORS? 

Ob2b 

27 

20 



BEO 

MAIN 13 

YES 

Ob 2 7 

FF 

0300 

R 

MAIN7A 

STX 

MACPTR 

SAVE MACRO LOC IN MACTBL 

Ob2A 

BO 

OCOE 

R 


JSR 

PRINTL 

Ob2D 

7C 

030C 

R 


INC 

MACFLG 

MODE«=MACRO 

Ob 30 

BD 

06F6 

R 


JSR 

NXTOK 

PARMS? 

Ob 33 

Cl 

OD 



CMP 

B #S00 


Ob 3b 

26 

13 


if 

BNE 

MAIN 12 

YES, SAVE THEM 

Ob37 

F7 

020A 

R 


STA 

B MACPAR 

NO, CR TO MACPAR 

Ob 3 A 

2 J 

OB 



BRA 

MAIN13 


0b3C 

6E 

00 


MAIN9 

JMF 

0,X 

GO TO ROUTINE 

05 3E 

CE 

0207 


MAINS 

LDX 

#50207 

ERROR 

Ob4 1 

BD 

00 BB 

R 


JSR 

PRINTE 

PRINT IT 

0b44 

BD 

OCOE 

R 

MAINIO 

JSR 

PRINTL 

PRINT LINE 

0b4 / 

7E 

0490 

R 

MAIN13 

if 

JMP 

MAINI 

PROCESS NEXT LINE 





* MOVE 

FARMS ON MACRO CALL TO MACPAR 

0b4A 

CE 

02 DA 

R 

MAIN!2 

LDX 

#MACPAR 


Ob 40 

FF 

030F 

R 


STX 

MACSAV 

INIT POINTER 

ObbO 

FE 

027B 

R 

MAIN 11 

LDX 

DESCRA 

POINT TO PARMS 

Obb 3 

A6 

00 



LDA 

A 0,X 

GET A CHAR 

Ob5b 

08 




INX 



0556 

FF 

027B 

R 


STX 

DESCRA 

SAVE POINTER 

0559 

FE 

030F 

R 


LDX 

MACSAV 

GET POINTER 

ObbC 

A7 

00 


• 

STA 

A O.X 

MOVE CHAR 

055E 

08 




INX 



055F 

FF 

030F 

R 

* 

STX 

MACSAV 

SAVE POINTER 

Ob 62 

81 

00 



CMP 

A #$0D 

EOL? 

Ob 64 

26 

EA 



BNE 

MAINI1 

NO 

Ob 66 

20 

OF 



BRA 

MAIN 13 

YES 





* GET A LINE OF SOURCE FROM INBUF * 

* RETURNS ADDRESS OF LINE IN CULINE * 





* CUCHARi =ADDRESS OF 

FIRST CHARACTER* 

Ob 66 

7D 

030C 

R 

RDLINE 

1ST 

MACFLG 

MACRO MODE? 

Ob 6B 

2/ 

09 


if 

BEQ 

RDLINA 

NO 

Ob 60 

BD 

ObAb 

R 

if 

JSR 

RDMAC 

EXPAND MACRO 

Ob 70 

70 

030C 

R 


1ST 

MACFLG 

MACRO FULLY EXPANDED? 

Ob73 

27 

01 



BEO 

RDLINA 

YES 

Ob 7b 

39 




RTS 



Ob 76 

CE 

031b 

R 

RDLINA 

LDX 

#INLINE 


0579 

FF 

027E 

R 


STX 

CUCHAR 


Ob 7C 

FF 

02 BO 

R 


STX 

CULINE 


057F 

BO 

0253 

R 

RDLI 

JSR 

GETS 


0582 

24 

06 


if 

BCC 

ROLIA 


0584 

BE 

A042 



LOS 

#SA042 

FLUSH STACK, EOF 

0567 

7E 

1254 

R 


JMP 

POENDO 


Ob 8 A 

81 

OA 


ROLIA 

CMP 

A #SOA 

LF? 

05 BC 

27 

FI 



BEO 

RDLI 

YES 

05 8H 

81 

00 



CMP 

A #$00 

NULLS? 

0590 

27 

EO 


if 

BEQ 

RDLI 

YES 

0592 

8C 

0364 

R 


CPX 

#INLINE+7» LINE TO LONG? 

0595 

27 

05 


if 

BEO 

R0L2 

YES 

0597 

A 7 

00 



STA 

A O.X 

STORE CHARACTER 

0599 

08 




INX 



059A 

20 

04 



BRA 

RDL3 


05PO¬ 

C6 

OD 


R0L2 

LDA 

B #$0D 

TRUNCATE LINE 

OS 9E 

E7 

00 



STA 

B O.X 


Ob AO 

81 

OD 


RDL3 

CMP 

A #$0D 

CR? 

05A2 

26 

DB 



BNE 

RDLI 

NO 


* 


102 



05 A4 39 


RTS 

* RDMACi EXPAND MACRO CALLS 

* 


ObAb 

FE 

0300 

R 

ROM AC 

LUX 

MACPTR 


05A8 

A6 

00 



LDA 

A 0,X 

GET CHAR 

05 AA 

81 

17 



CMP 

A #$ 1 7 

ETB? 

Ob AC 

26 

OB 



BNE 

ROMAC 1 

NO 

05AE 

/A 

03 OC 

R 


UEC 

MACFLO 

JEC MODE COUNT 

ObBI 

27 

05 



BEQ 

ROMACO 

NO MORE MACROS 





* PULL 

UP LAST MACRO 

STACKED 

05 B3 

BD 

06VB 

R 


JSR 

MACPUL 


05 U6 

20 

EO 



BRA 

ROM AC 


Ob B8 

39 



RDMACO 

RTS 



05 BV 

CE 

0292 

R 

RDMACI 

LUX 

MMACLIN 

POlNi TO MACRO EXPAND AREA 

05 BC 

FF 

0280 

R 


STX 

CULINE 

IN IT 

05BF 

FF 

02 7E 

R 


STX 

CUCHAR 

I Nil 

05C2 

FF 

031 1 

R 


STX 

MCLPTR 

IN IT 

ObCb 

FE 

0300 

R 

RDMAC2 

LUX 

MACPTR 

POlNi TO MACRO DEF 

05C8 

A6 

00 



LUA 

A O.X 


05CA 

Od 




INX 



05CB 

FF 

0300 

R 


STX 

MACPTR 


05 CE 

81 

2o 



CMP 

A #'A 

MACRO PARM? 

0500 

27 

13 



BEQ 

RDMAC3 

YES 

05D2 

FE 

031 1 

R 


LUX 

MCLPTR 

POINT TO MACLIN 

0505 

A7 

00 



STA 

A 0,X 

MOVE CHAR TO MACLIN 

05 D7 

08 




INX 



0508 

FF 

0311 

R 


STX 

MCLPTR 

SAVE POINTER 

05 OB 

8C 

0209 

R 


CPX 

#MACLIN+71 

OVERFLOW? 

05 OE 

27 

4B 



BEQ 

RDMERR 

YES 

05E0 

81 

00 



CMP 

A #SOD 

EOL? 

05 E2 

26 

El 



BNE 

R0MAC2 

NO 

0SE4 

39 




RTS 


ALL DONE 


«r SUBSTITUTE POSITIONAL PARMS 


★ 

05E5 E6 00 RDMAC3 LDA B O.X 
05E7 CO 2F SUB B #$2F 

05 E9 08 I NX 

05EA FF 0300 R STX MACPTR 

ObEU CE 02UA R LUX P #MACPAR 

* 

* SCAN OVER PARMS 


GET POSITIONAL # OF PARM 
CONVERT TO BINARY 
SKIP OVER POS# 

POINT TO PARMS FROM CALL 


* 


05 FO 

FF 

030F 

R 

R0MAC6 

STX 

MACSAV 

SAVE 

05 F3 

A6 

00 


RUMAC4 

LDA 

A 0,X 

GET A CHAR 

05 Fb 

08 




INX 



05 F6 

81 

2C 



CMP 

A #', 

END OF PARM? 

05F8 

27 

04 



BEQ 

RDMAC7 

YES 

05 FA 

81 

00 



CMP 

A #S0D 

EOL? 

05 FC 

26 

F5 



BNE 

R0MAC4 

NO 

05 FE 

5A 



* 

RUMAC7 

DEC 

B 

FOUND PARM? 

Q5FF 

26 

EF 



BNE 

RUMAC6 

NO 

0601 

FE 

03 OF 

R 


LOX 

MACSAV 

POINT TO PARM 

0604 

A6 

00 



LDA 

A O.X 

FOUND PARM, GET 

060o 

08 




INX 



0607 

FF 

030F 

R 


STX 

MACSAV 

SAVE POINTER 

060A 

FE 

0311 

R 

RDMAC5 

LOX 

MCLPTR 

POINT TO MACLIN 

0600 

A7 

00 



STA 

A O.X 

MOVE CHAR 

06 OF 

08 




INX 



0610 

FF 

03 1 1 

H 


STX 

MCLPTR 

SAVE POINTER 

0613 

8C 

0209 

R 


CPX 

MMACLIN+71 OVERFLOW? 

0616 

27 

13 


* 

BEQ 

ROME PR 

YES 

0618 

FE 

030 F 

R 

* 

LOX 

MACSAV 

POINT TO MACPAR 

06 IB 

A6 

00 



LOA 

A O.X 

GET NEXT CHAR 

06 ID 

08 




INX 



06 IE 

FF 

030F 

R 


STX 

MACSAV 

SAVE 

0621 

81 

2C 



CMP 

A 

END OF PARM? 

0623 

27 

AO 



BEQ 

RDMAC2 

YES 

0625 

81 

00 



CMP 

A #SOD 

EOL? 

0627 

26 

El 



BNE 

R0MAC5 

NO 

0629 

20 

9A 



BRA 

RDMAC2 


062B 

86 

OD 


RDMERR 

LDA 

A #SOD 

END LINE 

0620 

A7 

00 



STA 

A O.X 




062F 

CE 

0230 

LDX 

#$0230 

ERROR MESSAGE 

0632 

BD 

ODBB R 

JSR 

PRINTE 


0633 

20 

BE 

bRA 

RDMAC2 



* PUSH A MACRO ONTO THE MACRO STACK 

★ 

0037 FF 028E R MACPSH STX MXSAVI SAVE X-REG 

003A BF 028C H STS STKSAV SAVE STACK POINTER 

063U BE 02aA R Li)S MSTKPT LOAD MACRO STACK POINTER 


* PUSH MCLPTR.MACSAV.MACPTR ONTO STACK 

* 


0640 

CE 

03 12 

R 


LDX 

#MCLPTR+1 


0643 

C6 

06 



LDA 

B #6 


064 b 

A6 

00 


MPSHI 

LDA 

A 0,X 

GET A BYTE 

0647 

09" 




DEX 


0648 

FF 

0290 

R 


STX 

MXSAV2 

SAVE POINTER 

064B 

30 




'TSX 


X* =STKPTR+1 

064C 

09 




DEX 



064U 

BC 

0264 

R 


CPX 

MACEND 

END OF STACK? 

0680 

27 

33 



BEO 

MPSH8 

YES,ERROR 

06b2 

FE 

0290 

R 


LDX 

MXSAV2 

RESTORE POINTER 

06bb 

36 




PSH 

A 

PUSH A BYTE ONTO THE STACK 

0686 

8A 




DEC 

B 

ALL DONE? 

0687 

26 

EC 



BNE 

MPSHI 

NO 





* PUSH 

MACPAR IN REVERSE 

ORDER 


★ 


0689 

CE 

02UA 

R 


LDX #MACPAR 




06 a C 

A6 

00 


MPSH2 

LDA A O.X 


FIND EOL 


068E 

81 

OD 



CMP A #SOD 


EOL? 


0660 

27 

03 



BEQ MPSH3 


YES 


0662 

08 




INX 




0663 

20 

F7 



BRA MPSH2 




0668 

A6 

00 


MPSH3 

LDA A O.X 


GET A BYTE 


0667 

FF 

0290 

R 


STX MXSAV2 


SAVE PNTR 


066A 

30 




TSX 


X> =STKPTR+1 


066B 

09 




DEX 




066C 

BC 

0264 

R 


CPX MACEND 


END OF STACK? 


066F 

27 

14 


it 

BEO MPSH8 


YES,ERROR 


06 71 

FE 

0290 

R 


LDX MXSAV2 


RESTORE POINTER 


0674 

36 




PSH A 


PUSH A BYTE ONTO 

THE STACK 

06 78 

09 




DEX 


POINT TO NEXT LEFT CHAR 

06 76 

8C 

02U9 

R 


CPX #MACPAR-I 


ALL DONE? 


0679 

26 

EA 



BNE MPSH3 


NO 


06 7B 

BF 

02 BA 

R 


STS MSTKPT 


SAVE STACK POINTER 

06 7E 

BE 

028C 

R 


LDS STKSAV 


RESTORE STACK 


0681 

FE 

028E 

R 


LDX MXSAV1 


RESTORE X-REG 


0684 

39 




RTS 








* MACRO NESTING OVERFLOW 

ERROR 


0688 

BE 

0266 

R 

MPSH8 

LDS MACSTK 


FLUSH STACK 


0688 

BF 

028A 

R 


STS MSTKPT 




068 B 

BE 

028C 

R 


LOS STKSAV 




06dE 

CE. 0281 



LDX #$0281 


ERROR # 


0691 

BD 

ODBB 

R 


JSR PRINTE 




0694 

FE 

028E 

R 


LDX MXSAV 1 


RESTORE X-REG 


0697 

7F 

030C 

R 


CLR MACFLG 


GET OUT OF MACRO 

MODE 

069A 

39 




RTS 








* PULL 

A MACRO FROM 

THE MACRO STACK 


069B 

FF 

028E 

R 

MACPUL 

STX MXSAV1 


SAVE X-REG 


069E 

BF 

02 8C 

R 


STS STKSAV 


SAVE STACK POINTER 

06AI 

BE 

028A 

R 

* 

LDS MSTKPT 


LOAD MACRO STACK 

POINTER 





* PULL 

MACPAR OFF OF 

THE 

MACRO STACK 


06A4 

CE 

02DA 

R 


LDX KSMACPAR 




06A7 

32 



MPULI 

PUL A 


PULL A CHAR 


06A8 

A 7 

00 



STA A O.X 


SAVE IN MACPAR 


06 AA 

08 




INX 




06AB 

81 

OD 



CMP A #$0D 


EOL? 


06AD 

26 

F8 



BNE MPULI 


NO 






* PULL 

if 

MACPTR.MACSAV 

.MCLPTR 


06AF 

CE 

030D 

R 


LDX #MACPTR 




06B2 

C6 

06 



LDA B #6 




06B4 

32 



MPUL2 

PUL A 


PUL A CHAR 


06 BS 

A7 

00 



STA A O.X 


SAVE 


06B7 

OB 




INX 




06 BB 

8A 




DEC B 




06B9 

26 

F9 



BNE MPUL2 


NOT DONE 



10.4 



* 

06BB BF 02dA R STS MSTKPT SAVE MACRO STACK PNTR 

06BE BE 028C R LDS STKSAV RESTORE STACK POINTER 

0OCI FE 028E R LDX MXSAVI RESTORE X-REG 

06C4 39 RTS 

* COMPARE TWO STRINGS * 

* ON ENTRY IX] = A PARM LIST OF 5 BYTES I 

* A (STRINGI ) 

* A (STRING2 > 

* COUNT OF # BYTES TO BE COMPARED 

* 

* ON RETURN IF CC Z IS SET THERE IS A MATCH 

* EXAMPLE I 

* LDX #STRINGI 

* JSR COMPAR 

* BEO - MATCH 

* 

* STRINGI RMB 2 

* STRING2 RMB 2 

* COUNT RMB I 


* 


06Cb 

36 



COMPAR 

PSH 

A 



06C6 

37 




PSH 

B 



06C/ 

E6 

04 



LDA 

B 

4.X 

GET COUNT 

06C9 

FF 

06F4 

R 


STX 


XSAV 

SAVE PARM POINTER 

06CC 

FE 

06 F4 

R 

CMPI 

LDX 


XSAV 

GET PARM PTR 

oacF 

EE 

00 



LDX 


O.X 

GET A(STRINGI) 

06DI 

A6 

00 



LDA 

A 

O.X 

GET CHARACTER 

06D3 

FE 

06F4 

R 


LDX 


XSAV 

GET PTR 

06Do 

6C 

01 



INC 


1 ,x 

PTR SET TO NEXT 

06U8 

26 

02 



BNE 


CMP2 

CHAR IN 

06 DA 

6C 

00 



INC 


O.X 

STRINGI 

06DC 

FE 

06F4 

R 

CMP2 

LDX 


XSAV 

GET PARM PTR 

0ODF 

EE 

02 



LDX 


2.X 

GET A (STRING2) 

06EI 

A1 

00 



CMP 

A 

O.X 

COMPARE 

06E3 

26 

OC 



BNE 


CLONE 

NOT EQUAL 

06Eb 

FE 

06F4 

R 


LDX 


XSAV 

GET PARM POINTER 

06EB 

6C 

03 



INC 


3.X 

PTR SET TO NEXT 

06EA 

26 

02 



BNE 


CMP3 

CHAR IN 

06EC 

6C 

02 



INC 


2.X 

STRING2 

06EE 

bA 



CMP3 

DEC 

B 


DECREMENT COUNT 

06EF 

26 

DB 



BNE 


CMPI 

TRY AGAIN 

06FI 

33 



C0ONE 

PUL 

B 


DONE 

06F2 

32 




PUL 

A 



06F3 

39 




RTS 




06F4 

0002 


XSAV 

RMB 


2 

PARM PTR SAVE AREA 


* NEXT TOKEN ROUTINE * 


* 

SCANS A 

LINE OF 

SOURCE 

CODE AND RETURN! 

★ 

THE NEXT 

TOKEN, 

CLASS A 

RC IN REGS A,B 

★ 

THE ADDRESS OF 

THE TOKEN IS RETURNED II 

★ 

UESCRA AND THE 

# OF BYTES IN THE TOKEN 

* 

RETURNED 

IN DE5 

CRC. 


★ 

THE RC AND CLASS ARE« 


* 

TYPEi 

RC IB) 

CLASS [A] 

* 





★ 

NAME 

01 

02 

SUBSTRINGS 

★ 

HEX 

03 

02 


★ 

DECIMAL 

09 

02 


★ 

# 

23 

04 

DELIMITERS 

★ 

, 

2C 

04 


* 


27 

04 


★ 





* 

* 

2A 

24 

ARITHMETIC 

★ 

/ 

2F 

24 


★ 

* 

2B 

24 


★ 

- 

2D 

24 


★ 





★ 

A 

41 

01 

A.B.X REGS 

* 

B 

42 

01 


* 

X 

bB 

01 


★ 





★ 

CR 

OD 

OD 

EOL 

* 





★ 

ERROR 

00 

00 

ERRORS 

★ 






06 F 6 

7F 

027D 

R 

NXTOK 

CLR 


DESCRC 


06F9 

7C 

027U 

R 


INC 


DESCRC 

DESCRC«=I 

06 PC 

FE 

027E 

R 

NXTO 

LDX 


CUCHAR 

POINT TO CURRENT CHAR 

06Ff 

FF 

027 B 

R 


STX 


DESCRA 

INIT DESCRA 

0702 

A6 

00 



LDA 

A 

O.X 

GET CHAR 

0704 

08 




INX 




O/OP 

FF 

027E 

R 


STX 


CUCHAR 

POINT TO NEXT CHAR 

070B 

81 

20 



CMP 

A 

#520 

LESS THAN 20 HEX? 

070A 

27 

FO 



BEQ 


NXTO 

BLANK,SKIP OVER 

070C 

22 

06 



BHI 


NXTI 

>20 

07 OE 

81 

OD 



CMP 

A 

#$0D 

CR? 

0710 

26 

47 



BNE 


NX TER 

NO.UNRECOG. CHAR 


105 



0712 

16 




TAB 



YES, SET RC 

0713 

39 




RTS 




0714 

81 

5F 


NXTI 

CMP 

A 

#$8F 

>SF? 

0716 

23 

02 



BLS 


NXT3 

NO 

071b 

20 

3F 



BRA 


NXTER 

YES,UNRECOG. CHAR 

071A 

BO 

07C3 

R 

NXT3 

JSR 


GCHRTB 

GET BYTE FROM CHARTAB 

0710 

88 

01 



BIT 

A 

# SO 1 

A.B.X REGS? 

0711- 

27 

13 



BEO 


NXT4 

NO 

0721 

FE 

027E 

R 


LDX 


CUCHAR 

YES,CHECK NEXT CHAR 

0724 

E6 

00 



LDA 

B 

Q,X 


0726 

Cl 

20 



CMP 

B 

#$20 

BLANK? 

0728 

27 

04 



BEQ 


NXT3A 

YES 

072A 

Cl 

00 



CMP 

B 

#$00 

EOL? 

0720 

26 

OA 



BNE 


NX 14A 

NO GOT TO NSCAN 

0728 

EE 

027B 

R 

NXT3A 

LUX 


OESCRA 

GET RC 

0731 

86 

00 



LOA 

B 

O.X 


0733 

39 




RTS 




0734 

88 

80 


NXT4 

BIT 

A 

#$80 

NAME? 

0736 

27 

04 



BEQ 


NXTS 

NO 

073b 

BO 

0 773 

R 

NXT4A 

JSR 


NSCAN 

YES SCAN NAME STRING 

073B 

39 




RTS 




07 3C 

8s 

40 


NXTs 

BIT 

A 

#$40 

DECIMAL? 

073E 

27 

04 



BEQ 


NXT6 

NO 

074 0 

BO 

07sC 

R 


JSR 


DSC AN 

YES,SCAN DECIMAL STRING 

0743 

39 




RTS 




0744 

88 

20 


NXT6 

BIT 

A 

#$20 

ARITHMETIC? 

0746 

26 

E6 



BNE 


NXT3A 

YES GET RC AND RTN 

0748 

88 

04 



BIT 

A 

#$04 

DELIMITERS? 

074A 

27 

00 



BEQ 


NXTER 

NO,UNRECOG. CHAR 

07 4C 

FE 

0278 

R 


LDX 


OESCRA 

GET CHAR 

074F 

86 

OO 



LDA 

B 

O.X 


07s 1 

Cl 

24 



CMP 

B 

#$24 

$? (HEX) 

07s3 

26 

D9 ' 



BNE 


NXT3A 

NO,GET RC AND RTN 

0788 

BJ 

0798 

R 


JSR 


HSCAN 

YES.SCAN HEX STRING 

07sb 

39 




RTS 




0789 

4F 



NXTER 

CLR 

A 


TROUBLE,SET RC,CLASS*00 

078A 

8F 




CLR 

B 



078b 

39 




RTS 








* OSCAM SCAN 

DECIMAL 

STRING STOP AT 





* FIRST NON 

-DECIMAL CHAR 

0780 

FE 

0278 

R 

USCAN 

LOX 


CUCHAR 

POINi TO NEXT CHAR 

0/bF 

A6 

00 



LOA 

A 

O.X 

GET CHAR 

0761 

7C 

02 70 

R 


INC 


DESCRC 

BUMP COUNT 

0764 

08 




INX 




0/68 

FF 

02 78 

R 


SEX 


CUCHAR 

POINT TO NEXT CHAR 

07 A C 

BD 

07C3 

R 


JSR 


GCHRTB 

GET BYTE IN CHARTAB 

07 6b 

8s 

40 



BIT 

A 

#$40 

DECIMAL? 

0760 

26 

80 



BNE 


DSC AN 

YES CONTINUE SCAN 

076F 

C6 

09 



LOA 

8 

#$09 


0771 

20 

43 


★ 

BRA 


ENDSCN 

RETURN 





★ 

* NSCAN SCAN 

NAME STRING STOP AT 





* FIRST NON-ALPHANUMERIC CHAR 

07 73 

FE 

0278 

R 

NSCAN 

LOX 


CUCHAR 

POINT TO NEXT CHAR 

0776 

A6 

00 



LOA 

A 

O.X 

GET CHAR 

0778 

7C 

02 70 

R 


INC 


DESCRC 

BUMP COUNT 

0778 

08 




INX 




077C 

FF 

0278 

R 


STX 


CUCHAR 

POINT TO NEXT CHAR 

077F 

80 

07C3 

R 


JSR 


GCHRTB 

GET BYTE IN CHARTAB 

0782 

8 b 

80 



BIT 

A 

#SbO 

ALPHA? 

0784 

26 

80 



BNE 


NSCAN 

YES CONTINUE SCAN 

0736 

88 

40 



BIT 

A 

#$40 

NUMERIC? 

078b 

26 

E9 



BNE 


NSCAN 

YES CONTINUE SCAN 

07 8A 

C6 

07 



LDA 

8 

#S07 

NAME TO LONG ? 

078C 

FI 

02 70 

R 


CMP 

B 

DESCRC 


07 8P 

24 

03 



8CC 


NSCANA 

NO 

0791 

F7 

0270 

R 


STA 

B 

DESCRC 

YES,TRUNCATE 

0794 

C6 

01 


NSCANA 

LOA 

B 

#$01 

LOAD RC 

0796 

20 

IE 


★ 

BRA 


ENDSCN 

RETURN 





* 

* HSCAN SCAN 

HEX STRING STOP AT 





* FIRST NON-HEX CHAR 


0798 

7F 

0270 

R 

HSCAN 

CLR 


DESCRC 

UESCRCi=0 

0798 

FE 

02 7E 

R 


LDX 


CUCHAR 

POINT TO NEXT CHAR 

0798 

FF 

0278 

R 


STX 


OESCRA 

IN IT OESCRA 

07 A1 

FE 

02/8 

R 

HSCAN1 

LOX 


CUCHAR 

POINT TO NEXT CHAR 


106 



07 A4 

Aft 

00 



LOA 

A 

o.x„ 

GET CHAR 

07 Aft 

7C 

0270 

R 


INC 


DESCRC 

BUMP COUNT 

07AY 

08 




INX 




07 AA 

88 

027E 

R 


STX 


CUCHAR 

POINT TO NEXT CHAR 

07AD 

BL) 

0/C3 

R 


JSR 


GCHRTB 

GET HYTE IN CHRTAB 

0780 

8 b 

02 



BIT 

A 

#$02 

HEX? 

0782 

26 

EO 



BNE 


HSCANI 

YES CONTINUE SCAN 

0784 

C6 

03 



LDA 

B 

#503 


07 B6 

7A 

0270 

H 

ENDSCN 

OEC 


DESCRC 

DESCRC » = CORRECT COUNT 

07B9 

8E 

02 7 E 

R 


LOX 


CUCHAR 


07 80 

09 




OEX 




07BD 

8 F 

027E 

R 


STX 


CUCHAR 

CUCHARi= CORRECT VALUE 

07C0 

86 

02 



LOA 

A 

#2 

LOAD CLASS RC 

07C2 

39 




RTS 



ALL DONE 





* GET 1 

3YTE 

IN CHRTAB 

INDEXED BY VALUE OF 





* CHAR 

IN REG A 


07C3 

81 

20 


GCHRTB 

CMP 

A 

#$20 

VALID CHAR ? 

07 Cb 

2b 

16 



BCS 


GCHii TR 

NO < 20 

0/0/ 

a 1 

B8 



CMP 

A 

# $B 8 

VALID CHAR ? 

070V 

22 

12 



BHI 


GCHi/TR 

NO. > SF 

07Cb 

78 

0/08 

R 


CLR 


CHPTR 

INI! PARM 

O'/Cfc 

87 

O/tO 

R 


STA 

A 

CHPTR+1 

SAVE CHAR 

0/1)1 

CE 

070ft 

R 


LOX 


#CIIPTR 

POINT TO PARM 

0 / l)4 

BO 

OBEC 

R 


JSR 


ADul 6 

ADO IN BASE OF CHARTAB 

0707 

88 

0/08 

R 


LOX 


CHPTR 

GET BYTE IN CHARTAB 

0 7 DA 

Au 

00 



LOA 

A 

O.X 


07 DC 

39 




RTS 




07Do 

48 



OCHRTR 

CLR 

A 



070E 

39 




RTS 




07DF 

0002 


CHPTR 

RMB 


2 

PARM LIST 

07 E 1 

OIEA 

R 


ft OB 


CHRTAB- 

$20 





* TABLE MANIPULATION 

ROUTINES FOR TABLES 





* SYMTAb ANU 

MNTAB 






* STORAGE LOCATIONS 

USED BY THE ROUTINES! 

0/E3 

0002 


PS TNG1 

RMB 


2 

ADDRESS OF MNEMONIC 

07Eb 

0002 


PSTN02 

RMH 


2 

ADDRESS IN THE TABLE 

0/E7 

000 1 


PCOUNT 

RMB 


1 

LENGTH OF MNEMONIC 

07Ho 

0002 


1 BA DO 

RMB 


2 

TABLE POINTER 

O/EA 

0006 


HSMBL 

RMB 


6 

SYMBOL TEMP LOC 

0780 

0002 


HKEYA 

RMB 


2 

HASHED CODE 

07 F2 

0002 


HKEYB 

RMB 


2 

TEMP LOC FOR HASHED CODE 

0784 

0002 


HSAVI 

RMB 


2 

TEMP LOC FOR PTR 

0 /8ft 

0002 


HSAV2 

★ 

RMB 


2 

TEMP LOC FOR PTR 





* 

* STORE A SYMBOL IN 

SYMTAB 





* ON ENTRY 

OESCHA CONTAINS ADDRESS OF 





* THE 

SYMBOL 

,ANO DESCRC CONTAINS THE LENGTH 





★ A Si'ANDARU 

★ 

HASH CODED METHOD IS USED 

0788 

BO 

0BB9 

R 

★ 

Si’OSYM 

JSR 

HASH 

GET HASHED KEY 

078b 

88 

0202 

R 


STX 

SYMPTR 

SAVE 





* SEE 

18 LOC 

(HKEYA) 

IS EMPTY) 

07 B'fc 

A6 

00 


SYMA 

LOA 

A 

O.X 

GET FIRST CHAR 

0800 

Bl 

20 



CMP 

A 

#$20 

BLANK ? 

0B02 

26 

28 



BNE 


SYMB 

NO 


★ 


* STORE SYMBOL IN SYMTAB 


0B04 

FF 

0/F6 

R 

* 


STX 


HSAV2 

SAVE TABLE PTR 

080/ 

CE 

07EA 

H 



LDX 


#HSMBL 

POINT TO HSMBL 

080A 

FF 

0/F4 

R 



STX 


HSAVI 

SAVE 

080D 

C6 

06 




LDA 

B 

#6 

LOAD SYMBOL LENGTH 





* 

DO 

TRANSFER 


080ft 

FE 

07 F4 

R 

SYMI 

LDX 


HSAVI 

POINT TO HSYMBL 

0812 

A6 

00 




LDA 

A 

O.X 

GET CHAR 

0814 

08 





INX 




081b 

FF 

07 F4 

R 



STX 


HSAVI 

POINT TO NEXT CHAR 

Oo 1 8 

FE 

07 F6 

R 



LDX 


HSAV2 

POINT TO TABLE ENTRY 

ObIB 

A/ 

00 




STA 

A 

O.X 

STORE CHAR IN SYMTAB 

081 D 

08 





INX 


• 


08 IE 

FF 

0/F6 

R 



STX 


HSAV2 

POINT TO NEXT POSITION 

0821 

bA 





DEC 

B 


ALL DONE ? 

0822 

26 

EB 




BNE 


SYMI 

NO 





★ 

STORE LC, 

, AND SET 

INFO BYTE 

0824 

B6 

02/3 

R 



LDA 

A 

LC 

GET LC 


107 



0827 

A7 

00 



STA A 

0,X 

STORE 

0829 

B6 

0274 

R 


LUA A 

LC+1 

GET LS BYTE OF LC 

082C 

A7 

01 



STA A 

1 ,x 

STORE 

082E 

86 

40 



LUA A 

#$40 

INFO BYTE* =REL()C,DEF1 

0830 

A7 

02 



STA A 

2.X 

0832 

39 




RTS 


RETURN 





* 

* COMPARE HSMBL rtITH 

* 

ENTRY IN SYMTAB 

0833 

BD 

087 E 

R 

SYMB 

JSR 

SYMCMP 

COMPARE 

0836 

26 

10 



BNE 

SYMC 

NO MATCH 





* ERROR, SYMBOL ALREADY IN TABLE 

0o38 

FE 

0282 

R 


LDX 

SYMPTR 

GET ADDRESS OF ENTRY 

083B 

86 

80 



LDA A 

#$80 


08 3D 

AA 

08 



ORA A 

8«X 

SET REDEFINED BIT 

083F 

A7 

08 



STA A 

8.X 


0841 

CE 

0206 



LDX 

#$0206 

LOAD ERROR# 

0844 

BD 

ODBB 

R 

SYMBI 

JSR 

PRINTE 

PRINT IT 

0847 

39 



jg 

RTS 


RETURN 





* FIND 

ANOTHER SLOT 

IN SYMTAB FOR SYMBOL 

0848 

BD 

0893 

R 

SYMC 

JSR 

SYMMOD 

GET A[NEXT SLOT] 

084b 

BC 

07F0 

R 


CPX 

HKEYA 

CHECKED ALREADY 7 

084E 

27 

02 


It 

BEO 

*♦4 

YES,TABLE IS FULL 

0850 

20 

AC 



BRA 

SYMA 

TRY AGAIN 

0852 

CE 

0221 



LDX 

#$0221 

LOAD ERROR# 

0855 

20 

ED 



BRA 

SYMBI 

PRINT IT & RETURN 


* L(X)K UP SYMBOL IN SYMLAB 

* ON ENTRY DESCRA CONTAINS ADDRESS OF SYMBOL 

* A NO OESCRC CONTAINS THE LENGTH OF THE 

* SYMBOL. 

* ON RETURN* 

* B-VALUE OF INFO BYTE 

* B=FF SYMBOL NOT FOUNG 

* X=VALIJE OF SYMBOL 

* 


* 


08a7 

BU 

0889 

R 

LKPSYM JSR HASH 

GET KEY 

OBjA 

FF 

0282 

R 

STX SYMPTR 

SAVE 

OBBu 

A6 

00 


LKPSMI LDA A 0,X 


Ob3p 

81 

20 


CMP A #$20 

BLANK? 

0861 

26 

03 


BNE LKPSM3 

NO 





* ENTRY NOT IN SYMTAB 


0863 

C6 

FF 


LKPSM2 LDA B #$FF 

LOAD RC 

0865 

39 



RTS 

RETURN 





* COMPARE SYMBOL WITH 

ENTRY IN SYMTAB 

0866 

BU 

087E 

R 

LKPSM3 JSR SYMCMP 

COMPARE 

0869 

26 

08 


BNE LKPSM4 

NO MATCH 





* FOUND, EXTRACT INFO, 

AND VALUE 

086b 

FE 

0282 

R 

LUX SYMPTR 

POINT TO ENTRY 

086E 

E6 

08 


LUA B 8,X 

GET INFO BYTE 

08 10 

EE 

06 


LDX 6,X 

GET VALUE 

08/2 

39 



RTS 



* 


* PROBE AGAIN FOR SYMBOL IN SYMTAB 


0873 

BD 

0893 

R 

* 

LKPSM4 JSR 

SYMMOD 

GET NEXT KEY 

0876 

BC 

07F0 

R 

CPX 

HKEYA 

ALREADY CHECKED? 

08 79 

26 

E2 


BNE 

LKPSMI 

NO,TRY AGAIN 

08 IB 

C6 

FF 


LUA B 

#$FF 

SET RC 

087D 

39 



RTS 







* ROUTINE TO 

£ 

COMPARE 

SYMBOL rVITH ENTRY 

08/E 

FF 

07E3 

R 

SYMCMP STX 

PSi'NGI 

SAVE PTR TO ENTRY 

0881 

86 

06 


LDA A 

#6 


0883 

87 

07E7 

R 

STA A 

PCOUNT 

PCOUNT*=L(SYMBOL) 

0886 

CE 

O/EA 

R 

LDX 

#HSMBL 


0889 

FF 

0/E5 

R 

STX 

PS1NG2 

POINT TO HSMBL 

088C 

CE 

07E3 

R 

LUX 

#PSTNGI 

POINT TO PARMS 

088F 

BD 

06C5 

R 

JSR 

COMPAR 

COMPARE 

0892 

39 



RTS 




* 


* FIND NEXT SLOT IN SYMTAB 

* SYMPTR*=SYMPTR+9 (MODULO NSYM) 

* 

0893 FE 0282 R SYMMOD LUX SYMPTR GET AICURRENT SLOT) 

0896 08 INX SYMPTR*=SYMPTR+9 



0B97 08 
ObVb 08 
08 99 08 
08VA 08 
08VB 08 
089C 08 
08VU 08 
Ob9E 08 


* BEYONU SYMTAB ? 


089F BC 026C R CPX SYMEND 

08A2 26 03 BNE *+b NO 

ObA4 EE 026b R LUX SYMTAB POINl 

ObA7 Fr 0282 R STX SYMPTR SAVE I 

08AA 3V RTS 

* UuLETE LAST SYMBOL ENTERED 


POINl TO FIRST ENTRY 
SAVE PTR TO ENTRY 


OdAb 

FE 

0282 

R DELSYM 

LUX SYMPTR 


08AE 

bo 

20 


LUA A #520 

LOAD BLANK 

ObriO 

CO 

09 


LUA B #9 

LOAD ENTRY LENGTH 

0882 

A7 

00 

UELI 

Si A A O.X 

BLANK BYTE 

08 84 

08 



I NX 

POINl TO NEXT BYTE 

088-. 

oA 



DEC B 

ALL DONE t 

08B6 

26 

FA 


BNE UELI 

NO 

Ob Bo 

39 



kis 

YES, RETURN 




* HASH 

* 

SYMBOL TO PRODUCE A KEY 

0bb9 

CE 

2020 

★ 

HASH 

LUX #52020 

BLANK HSMBL 

OBBC 

FF 

O/EA 

R 

STX HSMBL 


ObBF 

FF 

07EC 

R 

STX HSM8L+2 


08C2 

FF 

O/cE 

H 

STX HSMBL+4 





* MOVE 

SYMBOL TO HSMBL 


ObCb 

CE 

07EA 

R 

LDX #HSMBL 

POINl TO HSMBL 

OoCb 

FF 

07 F6 

R 

STX HSAV2 

SAVE 

ObCb 

FE 

027b 

H 

LUX UESCRA 

POINl TO SYMBOL 

ObCE 

FF 

0/F4 

R 

STX HSAV1 

SAVE 

081)1 

F6 

02 7D 

R 

LUA B DESCRC 

JET L (SYMBOL) 

08U4 

FE 

0/F4 

R HASHI 

LUX HSAV1 

POINl TO SYMBOL 

08U7 

A6 

00 


LUA A 0,X 

GET CHAR 

ObUV 

08 



I NX 


ObUA 

FF 

07 F4 

R 

STX HSAV1 

POINT TO NEXT CHAR 

06 JU 

FE 

07F6 

H 

LDX HSAV2 

POINT TO HSYMBL 

ObEO 

A 7 

00 


STA A O.X 

STORE CHAR 

ObE2 

08 



INX 


ObE3 

FF 

07 F6 

R 

STX HSAV2 

POINT TO NEXT CHAR 

0bE6 

BA 



DEC B 

ALL DONE? 

08E7 

26 

EB 


BNE HASHI 

NO 




* FOLU 

OVER HSMBL CREATING KEYA 

ObEV 

FE 

07EA 

H 

LUX HSMBL 

HKEYAi“HSMBL(2) 

Ob EC 

FF 

07 FO 

R 

STX HKEYA 


ObEF 

FE 

07EC 

R 

LDX HSMBL+2 


08E2 

FF 

07F2 

R 

STX HKEYB 


ObFb 

CE 

07F0 

R 

LUX #HKEYA 


ObFb 

BU 

OBEC 

R 

JSR AUDI 6 

+HSMBL+2(2) 

ObFB 

FE 

07 EE 

R 

LUX HSMBL+4 


ObFE 

FF 

07F2 

R 

STX HKEYB 


OVOI 

CE 

07F0 

R 

LDX #HKEYA 


0904 

80 

OBEC 

R 

JSR AUDI 6 

♦HSMBL+4 (2) 




* HKEYAi=REMAINDER OF 

HKEYA/NSYM 

0907 

B6 

O/FO 

R 

LDA A HKEYA 

LOAD VALUESi 

OVOA 

F6 

07 F 1 

R 

LDA B HKEYA+I 


OVOU 

FE 

026A 

R 

LDX NSYM 


OVIO 

FF 

07 F2 

R 

STX HKEYB 


0913 

CE 

07 F2 

R 

LUX #HKEYB 

POINT TO NSYM 

0916 

BU 

OBAI 

R 

JSR DIVI6 


0919 

FF 

07 FO 

R 

STX HKEYA 

SAVE REMAINDER 




* HKEYAI=HKEYA*9 


091 C 

4F 



CLR A 


091U 

C6 

09 


LDA B #9 


09 IE 

CE 

07 FO 

R 

LUX #HKEYA 


0922 

BU 

0B7U 

R 

JSR MPYI6 


092b 

B7 

07 FO 

R 

STA A HKEYA 


092b 

F7 

O/FI 

R 

STA B HKEYA+I 





* ADO 

IN BASE ADDRESS 

OF SYMTAB 

0928 

FE 

026b 

* 

R 

LDX SYMTAB 


092E 

FF 

0/F2 

R 

STX HKEYB 


0931 

CE 

O/FO 

R 

LUX #HKEYA 



109 



0934 BD OBEC R 
093/ Ft 07 HO R 
093A 39 


JSR AUDI 6 
LUX HKEYA 
RTS 


* L(X)K UP MNEMONIC IN MNTAB 

* ON ENTRY DESCRA POINTS TO MNEMONIC, AND 

* DESCRC CONTAINS THE LENGTH (3) 

X ON RETURN I 

* REG A = 00 HOUND 

* REG A = FF NOT IN TABLE 

* REG X = ADDRESS OF ROUTINE TO PROCESS 

* THE OPCODE/PSEUUOP 

* REG B = MACHINE CODE FOR OPCODES 

* = FF FOR PSEUDOPS 

* 

★ 

* THE ALGORITHM IS A BINARY SEARCH 

* 


* TEMPORARY LOCATIONSt 


093B 

0001 


* 

LP 

RMB 


1 

ONE 

BELOW LOWEST ENTRY 

09 3C 

0001 


MP 

RMB 


1 

ONE 

HIGHER THAN HIGHEST ENTRY 

093D 

0001 


IP 

RMB 


1 

CALCULATED PROBE VALUE 

093E 

0006 


ENSIZ 

FDB 


6 

LENGTH OF ENTRY IN MNTAB 

094 0 

B6 

02 7D 

R 

MNLKP 

LDA 

A 

DESCRC 


094 3 

B7 

07E7 

R 


STA 

A 

PCOUNT 

INIT PCOUNT 

0946 

86 

57 



LDA 

A 

♦CHRTAB-MNTAB/6+1 (# ENTRIES*1) 

094B 

B7 

09 3C 

R 


STA 

A 

MP 


INIT MP 

094B 

4F 




CLR 

A 



094C 

B7 

093B 

R 

jf 

STA 

A 

LP 


INIT LP 

094 H 

B6 

093B 

R 

MNLKPA 

LDA 

A 

LP 



09S2 

4C 




INC 

A 



Ai=LP+l 

09S3 

Bl 

093C 

R 


CMP 

A 

MP 


MP=LP+1 ? 

095o 

26 

03 



BNE 


MNLKPB 

NO 

09 SB 

86 

FF 



LDA 

A 

#$FF 

YES,ENTRY NOT IN TABLE 

09SA 

39 




RTS 





* 


* IP«= <LP+MP)/2 TRUNCATED 
» 


095B 

F6 

09 3B 

R MNLKPB 

LDA B 

LP 


09SE 

FB 

093C 

R 

ADD B 

MP 

Bi=LP*MP 

0961 

56 



ROR B 


B>=B/2 

0962 

F7 

09 3D 

R 

STA B 

IP 

SAVE IP 




* GET 

16 BIT 

'ADDRESS 

OF ENTRY 

0965 

4F 



CLR A 



0966 

CE 

093E 

R 

LDX 

♦ENSIZ 

GET ENTRY LENGTH 

0969 

5 A 



DEC B 


Bi=IP-l 

096A 

BD 

0B7U 

R 

JSR 

MPYI6 

GET (IP-1)*6 

096U 

B7 

07E3 

R 

STA A 

PSTNGI 

SAVE 

0970 

F7 

07E4 

R 

STA B 

PSTNGI+1 


0973 

CE 

0006 

R 

LDX 

♦MNTAB 


09 76 

FF 

07E5 

R 

STX 

PSTNG2 

PSTNG2i=BASE OF MNTAB 

0979 

CE 

07E3 

R 

LDX 

♦PSTNGI 

POINT TO FARMS 

097C 

BD 

OBEC 

R 

JSR 

AUDI 6 

PSTNG U = (IP-1)*6+MNTAB 

097H 

FE 

0/E3 

R 

LDX 

PSTNGI 


0982 

FF 

07E8 

R 

STX 

TBADD 

SAVE 




* COMPARE MNEMONIC WITH ENTRY IN MNTAB 

★ 

0985 

FE 

02 7B 

R 

LDX 

DESCRA 

GET MNEMONIC ADDRESS 

0988 

FF 

07E5 

R 

STX 

PSTNG2 

INIT PARM FOR COMPARE 

098B 

CE 

0 7E3 

R 

LDX 

♦PSTNGI 

POINT TO FARMS 

098E 

BD 

06C5 

R 

JSR 

COMPAII 

COMPARE 

0991 

2b 

OB 


BCS 

MNLI 

ENTRY<MNEM()NIC 

0993 

26 

1 1 


BNE 

MNMI 

ENTRY>MNEMONIC 

0995 

4F 



CLR A 


ENTRY FOUND 

0996 

FE 

07E8 

R 

LDX 

TBADD 

POINT TO ENTRY 

0999 

E6 

05 


LDA B 

5 ,X 

GET MC 

099B 

EE 

03 


LDX 

3,X 

GET BRANCH ADDRESS 

099U 

39 



RTS 






* ENTHY<MNEMONIC LPi= 

IP 

099E 

B6 

09 3D 

R MNLI 

LDA A 

IP 


09A1 

B7 

093B 

R 

STA A 

LP 


09A4 

20 

A9 


BRA 

MNLKPA 

TRY AGAIN 




* ENTRY>MNEMONIC MPi= 

IP 

09A6 

B6 

093D 

R MNMI 

LDA A 

IP 


09A9 

B7 

093C 

R 

STA A 

MP 


09AC 

20 

Al 


BRA 

MNLKPA 

TRY AGAIN 


* EVALUATE NUMBERS,SYMBOLS AND EXPRESSIONS 

* 

* 

RMB 


09AE 0002 


VALUE 


2 


TEMPORARY LOCS 



09BG 

0002 

1MPVAL 

RMB 

2 


09B2 

0001 

CLFLG 

RMB 

| 

CLASS OF PREVIOUS TOKEN 

09B3 

0001 

CLASS 

RMB 

1 

CLASS OF CURRENT TOKEN 

09B4 

oooi 

OPERN 

RMB 

1 

ARITHMETIC OPERATOR 

09 BB 

7F 09AE 

R NSEVL 

CLR 

VALUE 


09Bd 

7F 09AF 

R 

CLR 

VALUE*1 

VALUE*=0 

09 BB 

7F 09B2 

R 

CLR 

CLFLG 

CLFLO =0 

09BE 

B7 09B3 

R 

ST A 

A CLASS 

SAVE CLASS OF CURRENT TOKEN 

09C1 

Cl 2A 


CMP 

B #$2A 

* ? 

09 C3 

26 2U 


BNE 

NSVLCI 

NO 

09 CB 

FE 0273 

R 

LDX 

LC 

YES 

09 Co 

FF 09AE 

R 

srx 

VALUE 

VALUE* =LC 

09CB 

86 02 


LOA 

A #2 


09C0 

B7 09B2 

R 

STA 

A CLFLG 

CLFLG*=2 

0900 

73 02 77 

R 

COM 

RELFLG 

RELFLG*=RELOC 

09 D3 

FE 027E 

R NSVLA 

LUX 

CUCHAR 


09D6 

A6 00 


LUA 

A 0,X 

GET NEXT CHAR 

09 Dd 

81 20 


CMP 

A #$20 

BLANK? 

09GA 

27 08 


BEO 

NSVLB 

YES 

09DC 

81 00 


CMP 

A #$0D 

EOL? 

090E 

27 04 


BEQ 

NSVLB 

YES 

09 FO 

81 2C 


CMP 

A #$2C 

? 

09 E2 

26 08 


BNE 

NSVLC 

NO 

09E4 

FE 09AE 

* 

R NSVLB 

LDX 

VALUE 


09E7 

FF 0C68 

R 

srx 

ADRI 

ADRI ,2>=VALt)E 

09EA 

SF 


CLR 

B 

RC*=00 

09EB 

39 


RTS 


ALL DONE 

09EC 

BO 06F6 

★ 

R NSVLC 

JSR 

NXTOK 

GET NEXT TOKEN 

09EF 

B7 09B3 

R 

STA 

A CLASS 

SAVE CLASS 


09F2 BI 09B2 R NSVLCI CMP A CLFLG CLASS=CLFLG? 


OVFb 

26 

06 



BNE 


NSVLF 

NO 

09F7 

CE 

0204 


NSVLO 

LDX 


#$0204 

ERROR 

09 FA 

SF 



NSVLE 

CLR 

B 



09FB 

S3 




COM 

B 


RC*«FF 

09 FC 

39 




RTS 



RETURN 

09 FO 

81 

02 


NSVLF 

CMP 

A 

#$02 

STRING? 

09FF 

27 

14 



BEQ 


NSVLH 

YES 

OAOI 

81 

24 



CMP 

A 

#$24 

ARITHMETIC OPERATOR? 

0A03 

27 

02 



BEQ 


NSVLG 

YES 

OAOS 

20 

FO 



BRA 


NSVLD 

ERROR 

0A07 

70 

0982 

R 

NSVLG 

TST 


CLFLG 

CLFLG=0? 

OAOA 

27 

EB 



BEQ 


NSVLD 

YES,ERROR 

OAOC 

F7 

09B4 

R 


STA 

B 

OPERN 

SAVE OPERATOR 

OAOF 

B7 

09B2 

R 


STA 

A 

CLFLG 

CLFLG*=CLASS 

0AI2 

7E 

09D3 

R 


JMP 


NSVLA 

SCAN AGAIN 

OA Is 

Cl 

03 


★ 

NSVLH 

CMP 

B 

#$03 

HEX STRING? 

OAI 7 

26 

1 1 



BNE 


NSVLJ 

NO 

OA 19 

F6 

02/0 

R 


LDA 

B 

DESCRC 

YES 

OA 1C 

Cl 

04 



CMP 

8 

#4 

> 4 ? 

0A1E 

2F 

OS 



BLE 


NSVLHI 

NO 

0A20 

CE 

0210 



LUX 


#$0210 

YES,ERROR 

OA23 

20 

US 



BRA 


NSVLE 


0A2b 

BO 

OACE 

R 

NSVLH1 

JSR 


CVHB 

CONVERT 

0A28 

20 

3B 



BRA 


NSVLM 


0A2A 

Cl 

09 


NSVLJ 

CMP 

B 

#9 

DECIMAL? 

0A2C 

26 

11 



BNE 


NSVLK 

NO 

0A2E 

F6 

02 7 D 

R 


LDA 

B 

DESCRC 


0A31 

Cl 

OS 



CMP 

B 

#5 

> S ? 

0A33 

2F 

OS 



BLE 


NSVLJ 1 

NO 

0A35 

CE 

0210 



LDX 


#$0210 

YES,ERROR 

0A3B 

20 

CO 



BRA 


NSVLE 


0A3A 

BD 

0B2A 

R 

* 

NSVLJ 1 

JSR 


CVDB 

CONVERT 

0A3L) 

20 

26 



BRA 


NSVLM 


0A3F 

Cl 

01 


NSVLK 

CMP 

B 

#S0l 

SYMBOL? 

0A41 

27 

03 



BEQ 


NSVLL 

YES 

0A43 

7E 

09F7 

R 


JMP 


NSVLD 

„ NO,ERROR 

0A46 

BO 

0857 

R 

NSVLL 

JSR 


LKPSYM 

LOOKUP SYMBOL 

0A49 

C5 

80 



BIT 

B 

#$80 

REDEFINED ? 

0A4B 

26 

12 



BNE 


NSVLLA 

YES 


Ill 



0A4LI 

Cb 

40 


BIT 

B 

#$40 

RELOC ? 

0A4F 

27 

Ob 


BEO 


*♦7 

NO 

OAbl 

73 

02 77 

R 

COM 


RELFLG 

YES RELFLG* =RELOC 

0A54 

20 

OF 


BRA 


NSVLM 


0A56 

Cb 

10 


BIT 

B 

#SIO 

COMMON? 

OA5U 

27 

03 


BEQ 

*+5 

NO 

OAbA 

73 

0278 

R 

COM 

CMNFLG 

YES 

OASU 

20 

06 


BRA 

NSVLM 


OA5F 

CE 

0211 

NSVLLA LOX 


#$0211 

NO,ERROR 

OA 62 

7E 

09FA 

R 

JMP 


NSVLE 


0A6b 

FF 

09B0 

R NSVLM 

STX 


TMPVAL 

SAVE,CONVERTED VALUE 

OA6B 

70 

09B2 

R 

1ST 


CLFLG 

CLFLG=0 ? 

0A6B 

26 

OF 


BNE 


NSVLP 

NO 

0A6D 

FE 

09 BO 

R 

LDX 


TMPVAL 

YES 

0A70 

FF 

09AE 

R 

STX 


VALUE 

VALUE«=TMPVAL 

OA73 

B6 

09B3 

R NSVLN 

LDA 

A 

CLASS 


OA76 

B7 

09 B2 

R 

STA 

A 

CLFLG 

CLFLG*=CLASS 

0A79 

7E 

09 03 

R 

JMP 


NSVLA 

SCAN AGAIN 

OA7C 

B6 

0yB4 

★ 

R NSVLR 

LOA 

A 

OPERN 

GET LAST OPERATOR 

OA7I- 

01 

2b 


CMP 

A 

#$2B 

+ ? 

OAdl 

26 

Ob 


BNE 


NSVLPI 

NO 

0A83 

CE 

09 AE 

R 

LDX 


#VALUE 


OA«0 

Bo 

OBEC 

R 

JSR 


AOO1 6 

VALUE*=VALUE+TMPVAL 

0A89 

20 

Ed 


BRA 


NSVLN 


OAab 

81 

20 

MSVLP1 

CMP 

A 

#$20 

- i 

OAbD 

26 

Od 


bNE 


NSVLP2 

NO 

OAdF 

CE 

09AE 

R 

LOX 


#VALUE 

YES 

0A92 

BU 

OBFO 

R 

JSR 


SUdl 6 

VALUE*=VALUE-TMPVAL 

0A9b 

20 

OC 


BRA 


NSVLN 


0A9 7 

dl 

2k 

NSVLF2 

CMP 

A 

#$2A 

* ? 

0A9y 

26 

1 D 


bNE 


NSVLP3 

NO 

0A9B 

B6 

OVAE 

R 

LOA 

A 

VALUE 


0A9E 

FA 

09AF 

R 

LOA 

B 

value+i 


OAAI 

CE 

09B0 

R 

LUX 


#TMPVAL 


0AA4 

BO 

0B70 

H 

JSR 


MPYI 6 

VALUE*=VALUE*TMPVAL 

OAA7 

B / 

09AE 

R 

STA 

A 

VALUE 


OAAA 

F7 

09 AF 

R 

STA 

B 

VALUE+I 


OAAU 

7E 

0A73 

R 

JMP 


NSVLN 


OABO 

81 

2F 

NSVLF3 

CMP 

A 

#$2F 

/ ? 

0AB2 

27 

03 


BEQ 


NSVLP4 

YES 

0AB4 

7E 

09F7 

R 

JMP 


NSVLD 

NO, ERROR 

OAB7 

B6 

OyAE 

R NSVLP4 

LOA 

A 

VALUE 


OABA 

F6 

09AF 

R 

LOA 

B 

VALUE+I 


OABD 

CE 

09B0 

R 

LDX 


#TMPVAL 


OACO 

BO 

OBA1 

R 

JSR 


DIVI 6 

VALUE*=VALUE/TMPVAL 

OAC3 

87 

09AE 

R 

STA 

A 

VALUE 


0AC6 

F7 

09AF 

R 

STA 

B 

VALUE+I 


OACy 

7E 

OA73 

R 

JMP 


NSVLN 





* CVHU 

CONVERT HEX TO 

BINARY 




* ON EN'iRY 

ObSCRA = ADDRESS OF STRING 




* 


DESCFC = # 

OF BYTES IN STRING 




* ON RETURN [XJ=VALUE 


OAOC 

0002 

HVAL 

RMB 


2 

TEMP STORAGE 

OACfc 

Ft 

027B 

R CVHB 

LOX 


DESCRA 

GET ADDRESS OF STRING 

OADI 

7F 

OACC 

R 

CLH 


HVAL 


0AU4 

7F 

OACu 

R 

CLR 


HVAL+I 


OAl)7 

F6 

02/0 

R 

LOA 

B 

UESCRC 

GET COUNT 

OADA 

09 



DEX 



DECREMENT PTR TO STRING 

OAlIB 

Od 


CVHBI 

I NX 



P0IN1 TO RIGHT MOST 

OADC 

e>A 



OEC 

8 


BYTE OF THE 

OAOU 

26 

FC 


BNE 


CVHBI 

STRING 

OADr 

F6 

0270 

R 

LOA 

B 

DESCRC 

GET COUNT 

OAE2 

BJ 

OB lb 

R 

JSR 


CVHBS 

CONVERT 

OAEb 

B7 

OACO 

R 

STA 

A 

HVAL+I 

SAVE 

OAEo 

dA 



OEC 

B 


DECREMENT COUNT 

OAEy 

27 

29 


BEQ 


CVHBD 

(1 HEX DIGIT) 

OAEB 

09 



UEX 



POINT TO NEXT LEFT BYTE 

OAEC 

BO 

OBIb 

R 

JSR 


CVHBS 

CON VERT 

OAEF 

4d 



ASL 

A 


SHIFT TO LEFT NIBBLE 

OA FO 

4d 



ASL 

A 



OAFI 

4d 



ASL 

A 





0AF2 

48 




ASL 

A 




OA F3 

BA 

OACD 

R 


ORA 

A 

HVAL+I 

CONVERT TO BYTE 


0AF6 

B/ 

OACU 

R 


STA 

A 

HVAL+I 

SAVE 


OAF 9 

bA 




DEC 

B 


DECREMENT COUNT 


OAFA 

21 

IB 



BEO 


CVHBD 

(2 HEX DIGITS) 


OAFC 

09 




DEX 



POINT TO NEXT LEFT 

BYTE 

OAFU 

BD 

OBIB 

R 


JSH 


CVHBS 

CONVERT 


OBOO 

til 

OACC 

R 


STA 

A 

HVAL 

SAVE 


0B03 

bA 




DEC 

B 


DECREMENT COUNT 


0B04 

27 

OE 



BEQ 


CVHBD 

(3 HEX DIGITS) 


0B06 

09 




DEX 



POINT TO NEXT LEFT 

BYTE 

0BO7 

ti'O 

OBIB 

R 


JSR 


CVHBS 

CONVERT 


OBOA 

48 




ASL 

A 


SHIFT TO LEFT NIBBLE 

OBOB 

48 




ASL 

A 




OBOC 

48 




ASL 

A 




OBOU 

48 




ASL 

A 




OBOE 

BA 

OACC 

R 


ORA 

A 

HVAL 

CONVERT TO BYTE 


OBI 1 

B / 

OACC 

R 


STA 

A 

HVAL 

SAVE 


OB 14 

FE 

OACC 

R 

CVHBD 

LDX 


HVAL 

GET FINAL VALUE 


OBI 7 

39 




RTS 



RETURN 






* ROUTINE TO 

CONVERT 

ASCII TO BINARY 


OBIB 

A6 

00 


CVHBS 

LDA 

A 

O.X 

GET BYTE 


OB 1A 

80 

30 



SUB 

A 

#$30 

CONVERT 


OBIC 

81 

09 



CMP 

A 

#$09 

0 - 9 ? 


OB 1E 

2F 

02 



BLE 


*+4 

YES 


0B20 

8 J 

07 



SUB 

A 

#$07 

NO, 10 - IB 


OB22 

39 




RTS 






* CVDB* CONVERT DECIMAL TO BINARY 

* ON ENTRY UESCRA = ADDRESS OF DECIMAL STRING 

* DESCRC = # BYTES IN DECIMAL STRING 

* ON RETURN (XI = VALUE IN BINARY 


0b23 

0002 


DVAL 

RMB 


2 

TEMP STORAGE FOR BINARY 

0U2B 

0001 


DCOUNT 

RMB 


1 

DIGIT COUNT 

0B26 

0002 


TENVL 

RMB 


2 

POWER OF TEN 

0B2B 

0002 


DXSAV 

RMB 


2 

TEMPORARY STORAGE FOR X 

0B2A 

7F 

0B23 

R 

CVDB 

CLR 


DVAL 

DVALi=0 

0B2D 

7F 

Od24 

R 


CLR 


DVAL+I 


0B30 

7F 

0B26 

R 


CLR 


TENVL 


OB33 

7F 

0B27 

R 


CLR 


TENVL+I 


OB36 

7C 

0B27 

R 


INC 


TENVL+I 

TENVL* = 1 

OB39 

FE 

02 IB 

R 


LDX 


DESCRA 

POINT TO STRING 

0B3C 

09 




DEX 




0B3D 

F6 

027D 

R 


LDA 

B 

DESCRC 


0B40 

F7 

0B2B 

R 


STA 

B 

DCOUNT 

INIT DCOUNT 

0B43 

Od 



CVDBI 

I NX 



POINT TO 

OB 44 

BA 




DEC 

B 


LEAST SIGNIFICANT 

0B4B 

26 

FC 



BNE 


CVDBI 

DIGIT 

0B47 

FF 

0B28 

R 

CVDB2 

SIX 


DXSAV 

SAVE POINTER 

0B4A 

E6 

00 



LDA 

B 

O.X 

GET DIGIT 

0B4C 

C4 

OF 



AND 

B 

#$0F 

CONVERT TO BCD 

0B4E 

4F 




CLR 

A 


CLEAR ACCUMULATOR 

0B4F 

CE 

0B26 

R 


LDX 


#TENVL 

POINT TO POWER OF TEN 

0BB2 

BO 

0B7D 

H 


JSR 


MPYI 6 

(A,B)i=TENVL*DIGIT 

0B5B 

FB 

0B24 

R 


ADD 

B 

UVAL+1 

DVAL* =DVAL+TENVL*DIGIT 

OBbB 

B9 

0B23 

R 


ADC 

A 

DVAL 


OBbB 

B7 

0B23 

R 


STA 

A 

DVAL 


OBSE 

F7 

0B24 

R 


STA 

B 

DVAL+l 


0B6I 

4F 




CLR 

A 



0B62 

C 6 

OA 



LDA 

B 

#$0A 

B* = IO 

0B64 

CE 

0B26 

R 


LDX 


#TENVL 

POINT TO POWER OF TEN 

0B67 

BD 

0B7D 

R 


JSR 


MPYI 6 

TENVL* =TENVL*I 0 

0B6A 

B/ 

0B26 

R 


STA 

A 

TENVL 


0B6D 

F7 

0B27 

R 


STA 

B 

TENVL+I 


OB 70 

FE 

0B28 

R 


LDX 


DXSAV 

RESTORE POINTER TO STRING 

OB73 

09 




DEX 



POINT NEXT LEFT DIGIT 

0B74 

7A 

0B2B 

R 


DEC 


DCOUNT 

DONE? 

OB 77 

26 

CE 



BNE 


CVDB2 

NO 

0B79 

FE 

0B23 

R 


LDX 


DVAL 

GET,. FINAL VALUE 

0B7C 

39 




RTS 



RETURN 


* MPYI6 16 BIT MULTIPLY ROUTINE 

* <A,B>«= CA,B)*I2 BYTES POINTED AT BY X REG] 

* USES 7 BYTES ON THE STACK 


OB 70 

31 


* 

MPYI6 PSH 

B 


PUT VALUES ON TO THE STACK 

0B7E 

36 


PSH 

A 



0B7F 

A6 

01 

LDA 

A 

1 .X 


OBBI 

36 


PSH 

A 



0B82 

A6 

00 

LDA 

A 

X 

o 


0Bd4 

36 


PSH 

A 



OBBb 

86 

10 

LDA 

A 

#16 


OB 8/ 

36 


PSH 

A 



OBBB 

30 


TSX 



POINT TO DATA 

0BB9 

A6 

03 

LDA 

A 

3 ,X 




ob«b 

5d 


MPYI63 

ASL B 


OBdC 

49 



ROL A 

FORM ANSRER 

0B8U 

6B 

02 


ASL 2,X 

SHIFT MULTIPLICAND 

OBdF 

69 

01 


ROL l,X 


OB VI 

24 

04 


BCC MPYI67 


OB93 

EB 

04 


ADD B 4 ,X 

ADD MULTIPLIER 

ObVb 

A9 

03 


ADC A 3 ,X 


OB 9/ 

6A 

00 

MPYI67 

DEC 0,X 


OB 99 

26 

BO 


BNE MPYI63 

COUNT NOT ZERO 

OBVB 

31 



INS 


0B9C 

31 



INS 


OB9D 

31 



INS 


0B9E 

31 



INS 


OBVB 

31 



INS 


OBAO 

39 



RTS 

ALL DONE 




* UIVI6 16 BIT DIVIDE (UNSIGNED) 




* <A,B)« = 1A,B>/ (X), 

, (X+l) 




* IX I=REMA I ,'JDER 


OBAI 

37 


DIVI6 

PSH B 

DIVIDEND TO STACK 

OBA2 

36 



PSH A 


OBA3 

A6 

00 


LDA A 0,X 


OBAB 

E6 

01 


LDA B 1,X 


OBA7 

37 



PSH H 

DIVISOR TO STACK 

ObAu 

36 



PSH A 


0BA9 

34 



DES 

LEAVE R(X)M FOR COUN, 

OBAA 

30 



TSX 

(X) PNTR TO STACKED 

OBAb 

d6 

01 


LDA A #1 


OBAl) 

6L> 

01 


1ST l,X 


OBAe 

2B 

OB 


BMI DIVIS3 


OBBI 

4C 


DIVI5I 

INC A 


OBB2 

60 

02 


ASL 2,X 


0BB4 

69 

01 


ROL 1,X 


0HB6 

2B 

04 


BMI DIVIS3 


ObBB 

dl 

1 1 


CMP A #17 


OBBA 

26 

F-j 


BNE DIVIbl 


OBBC 

A7 

00 

DIVI53 

STA A 0,X 

SAVE COUNT 

OBBH 

A6 

03 


LDA A 3,X 


OBCO 

E6 

04 


LDA B 4,1 


OBC2 

6F 

03 


CLR 3,X 


0BC4 

6B 

04 


CLR 4,X 


0BC6 

EO 

02 

D-IVI63 

SUB B 2,X 


OBCb 

A2 

01 


SBC A 1,X 


OBCA 

24 

07 


BCC DIVI65 

DIVISOR STILL OK 

OBCC 

EB 

02 


ADD B 2,X 

DIVISOR T(X) LARGE 

OBCB 

A9 

01 


ADC A 1,X 

RESTORE 

OBDO 

OC 



CLC 


OBOI 

20 

01 


BRA DIVI67 


OBU3 

00 


DIV1 65 

SEC 


0BD4 

69 

04 

l)IVI 67 

ROL 4,X 


OBDC 

69 

03 


ROL 3,X 


OBUB 

64 

01 


LSR l,X 

ADJUST DIVISOR 

OBOA 

66 

02 


ROR 2,X 


OBUC 

6A 

00 


DEC 0,X 


OBOE 

26 

E6 


BNE DIVI63 


OBEO 

A7 

00 


STA A 0,X 

SAVE REMAINDER IN X 

0BE2 

E / 

01 


STA B 1 ,X 


0BE4 

EE 

00 


LDX 0,X 


0BE6 

31 



INS 

CLEAN UP STACK 

OBE7 

31 



INS 


OBEb 

31 



INS 


0BE9 

32 



PUL A 


OBEA 

33 



PUL B 


OBEB 

39 



RTS 





* AIXJI6 16 BIT ADDITION 




*1X1 POINTS' 





* 

LOCI 2), 

THMP (2) 




* LOC (2)i=L0C(2)+TEMP (2) 

OBcC 

36 


AUDI 6 

PSH A 


OBEu 

37 



PSH B 


OBEB 

A6 

01 


LDA A 1,X 


OBBO 

E6 

00 


LDA B 0,X 


OBB2 

AB 

03 


ADD A 3,X 


OBF4 

E9 

02 


ADC B 2,X 


OBBB 

A7 

01 


STA A 1,X 


OBBB 

E7 

00 


STA B 0,X 


Ob BA 

33 



PUL B 


OBBB 

32 



PUL A 


OB EC 

39 


★ 

RTS 





* 

★ SU13I6 16 BIT SUBTRACTION 




*1X1 POINTS' 





* 

LOC (2), 

TEMP (2) 




* LOC (2) '=L0C(2 )-TEMP (2 ) 

OB ED 

36 


SUB 16 

PSH A 


OBB'E 

37 



PSH B 


OBFF 

A6 

01 


LDA A 1,X 


OCOI 

E6 

00 


LDA B 0,X 



114 



0CO3 AO 03 


SUB A 3,X 



OCOb E2 02 


SBC B 2 ,X 



0C07 A/ 01 


STA A 1,X 



0C09 E7 00 


ST A B 0,X 



OCOB 33 


PIJL B 



OCOC 32 


PUL A 



OCOl) 39 


RTS 





• PRINl'L PRINT A LINE ON THE TTY 


OCOb B6 02OE 

R 

PRINTL LOA A OP 1 NS 

GET OPTIONS 


OCI 1 ti'J DO 


BIT' A #$B0 

LIST? 


OCI3 26 14 


BNE PLhND 

NO 


OCIb 70 027a 

R 

1ST PASS 

PASS? 


OCIB 27 OF 


Bb'Q PLEND 

PASSI 


OCI A /D 030C 

R 

TST MACFLG 

MACRO FLAG SET? 


OCIU 27 04 


BEQ PR1NTI 

NO 


OC1F bb 10 


BIT A #SI0 

PRINT MACROS? 


0021 26 06 


BNE PLEND 

NO 


OC23 BO 0C2A 

u 

PRINTI JSR LINCK 

CHECK LINE # 


0C26 BO OC/I 

R 

JSR OUTL 

PRINT A LINE 


0C29 39 


PLEND RTS 

* 

ALL DONE 




★ 

* LINE CHECK FOR TOP OF 

PAGE ETC. 


0C2A 37 


LINCK PSH B 



0C2B F6 02b7 

R 

LDA B LCOUNT 



0C2b Cl 00 


CMP B #500 

END OF PAGE? 


0C30 26 03 


BNE LINCKA 

NO 


0C32 BO 0C44 

R 

JSR SPACER 

YES SPACE TO TOP OF 

PAGE 

0C33 7C 02b/ 

R 

LINCKA INC LCOUNT 

BUMP LCOUNT 


0C3B F6 02b/ 

R 

LDA B LCOUNT 



0C3b Cl 3C 


CMP H #S3C 

LC0UNT=60? 


0C3D 26 03 


BNE LINCKB 

NO 


0C3F 7F 02b7 

H 

CLH LCOUNT 

YES,SET FOR TOP OF 

PAGE 

0C42 33 


LINCKB PUL B 



0C43 39 


RTS 





* SPACE T(1 TOP OF PAGE 

AND PRINT PAGE MARK 


0C44 CE 0C4B 

R 

SPACER LDX #HEADR 

POINT TO DATA 


0C4/ BU IB6I 

R 

JSR POATAI 

PRINT ON TTY 


0C4 A 39 


RTS 



0C4B ODOA 


HEADR FOB SODOA CRLF 


0C4U 000A 


FDB SODOA 



0C4F OOOA 


FOB SODOA 



OCbl 2E 


FCC 

• • • • * 


OCbE ODOA 


FDB SODOA 



0C6O ODOA 


FDB SODOA 



0C62 ODOA 


HUB SODOA 



0C64 04 


FC8 S04 EOT 




* PRINT A FORMATTED LINc OH LISTING ON THE TTY 


* 


0C6b O'XJI 

MCOUNT 

RMG 

1 

M BYTES OF MACH INF CODE 

0C60 0001 

POP 

RMB 

1 

PSfcllU()PlO«N01 1 ,2 BYTES 

0C67 0001 

OPCU 

RMB 

1 

OPCODE IN HEX 

0COU 0001 

ADR 1 

RMB 

1 

INSTRUCTION ADDRESS 

0C6V O'XJI 

ADH2 

RMB 

1 

LINENUM IN ASCII 

0C6A 000b 

LINEN 

RMB 

5 

OCoF 2004 

* 

FDB 

S2004 

EOT 

OCT 1 CE OCoA 

* 

R OUTL 

LUX 

#LINEN 

LOAD FARMS 

0C74 B6 02OF 

R 

LUA A 

LNUM 

LOAD LINNUM (BINARY) 

OCT? F6 02/0 

R 

LDA B 

LNUM+I 

CONVERT TO DECIMAL (ASCII 

0C7A BU ODBC 

R 

JSR 

CVBTD 

OC/D CE 0C6B 

R 

LUX 

MLINEN+l 

POINi TO DECIMAL LINE# 

OCbO UU 1661 

R 

JSR 

PDA T A1 

PRINT LINE# 

0CB3 70 030C 

R 

TST 

MACFLG 

MACRO LINE? 

0CB6 27 03 


BEQ 

*♦7 

NO 

OCBb B6 2B 


LDA A 

#'♦ 


ocaA bu iaaa 

R 

JSR 

OUTCHR 


OCBU CE 0Ub9 

R 

LDX 

MBLANKA 

PRINT 2 BLANKS 

0C90 BU 1861 

R 

JSR 

PDATAI 

OC93 70 0C6b 

R 

1ST 

MCOUNT 

PRINT LC ? 

0CV6 26 Ou 


bNE 

OUTLA 

YES 

OCVB 7D OC66 

R 

1ST 

POP 

PRINT LC7 

OCVB 26 08 


BNE 

OUTLA 

YES 

OCVO CE 0Db6 

R 

LDX 

MBLANK3 

NO,PRINT BLANKS <b > 

OCAO BU 1861 

R 

JSR 

PDATAI 


0CA3 20 28 


BRA 

0UTL2 


OCAb CE 0273 

R OUTLA 

LDX 

#LC 

POINT TO LC 

0CA8 BU 18/1 

R 

JSR 

0UT4HS 

PRINT IN HEX,SPACE 


115 





OCAB 

F6 

0C66 

ft 


LOA 

B POP 

PSEUDOP?^ 

NO ** 

OCAfc 

21 

20 



BEQ 

0UIX2 

OCBO 

Cl 

01 



CMP 

B #501 

1 BYTE? 

OCB2 

27 

OE 



BEQ 

OUTLI 

YES 

0CB4 

CE 

0C6B 

R 


LUX 

#AUR 1 

POINT TO ADRI.ADR2 

OCB7 

BO 

1871 

R 


JSR 

OOT4HS 

PRINT 2 BYTES 4 HEX,SPACE 

OCBA 

CE 

OUbB 

R 


LDX 

#ULANKb 

POINT TO BLANKS 

OCBO 

BO 

1861 

R 


JSR 

PDATA1 

PRINT BLANKS 

OCCO 

20 

4b 



BRA 

0UTL6 


0CC2 

CE 

0C69 

R 

OUTLI 

LDX 

#A0R2 

POINT TO ADR2 

OCCb 

BO 

18/3 

R 


JSR 

0U12HS 

PRINT 1 BYTE 2 HEX,SPACE 

OCCB 

CE 

00b 6 

R 


LDX 

#BLANK3 

POINT TO BLANKS 

OCCb 

UO 

1861 

R 


JSR 

POATAI 

PRINT BLANKS 

OL'CE 

20 

37 



BRA 

0U1L6 


OCUO 

F6 

0C6b 

R 

0UTL2 

LDA 

B MCOONT 

PRINT NOTHING? 

0CD3 

26 

Od 



BNE 

0UTL3 

NO 

OCDb 

CE 

005 3 

R 


LDX 

#BLANK 

PRINT JUST 8 BLANKS 

OCDb 

BO 

1861 

R 


JSR 

PLATA 1 


OCOB 

20 

2A 



BRA 

003 L6 


OCIJU 

CE 

OC67 

R 

* 

QUTL3 

LuX 

#OPCD 


OCBO 

BO 

1873 

R 


JSR 

OUT2H5 

PRINT OPCODEOIEX ) .SPACE 

0CE3 

Cl 

01 



CMP 

B #SOI, 

ONLY OPCODE? 

OCEb 

26 

08 



BNE 

OU TL4 

NO 

0CE7 

CE 

0056 

R 


LDX 

#BLANK3 

PRINT BLANKS 

OCEA 

BO 

1861 

R 


JSR 

POATAI 


OCED 

20 

IB 



BRA 

00 TL6 


OCEF 

Cl 

02 


0UTL4 

CMP 

B #$02 

1 BYTE ADDRESS? 

OCFI 

26 

OE 



bNE 

O01L5 

NO,2 BYTES 

0CF3 

CE 

0C69 

R 


LDX 

#A0R2 

POINT TO ADR2 

0CF6 

BD 

1873 

R 


JSR 

0U12HS 

PRINT 1 BYTE ADDRESS,SPACE 

0CF9 

CE 

0059 

k 


LOX 

#3LANK6 

PRINT BLANKS 

OCFC 

BO 

1861 

R 


JSR 

PDA TA 1 


OCFF 

20 

Oo 



BRA 

OU TL6 


OUOI 

CE 

0C68 

R 

OUTLb 

LDX 

#AOHI 

POINi TO ADR 1,AUR2 

0004 

BO 

1871 

R 

£ 

JSR 

0U14HS 

PRINT 2 BYTE ADORESS.SPACE 

0007 

10 

0278 

R 

001X6 

isr 

CMNFLO 

COMMON? 

ODOA 

27 

04 



BEO 

*♦6 

NO 

OOOC 

86 

43 



LDA 

A #'C 


ODOE 

20 

10 



BRA 

0UTL6B 


0010 

70 

02 79 

R 


fST 

EXTFLO 

EXTERNAL? 

0013 

27 

04 



BEQ 

*+6 

NO 

ODIb 

86 

58 



LOA 

A #'X 


0D1 7 

20 

14 



BRA 

0UTL6B 


00IV 

70 

02/A 

R 


1ST ENTFLG 

ENTRY? 

001C 

21 

04 



BEQ 

*+6 

NO 

00 IE 

66 

4E 



LDA 

A #'N 


0020 

20 

OB 



bRA 

0UTL6B 


0022 

70 

02 77 

R 


1ST 

RELFLG 

RELOCATABLE? 

002b 

27 

04 



BEQ 

*♦6 

NO 

0027 

86 

52 



LDA 

A #'R 


0029 

20 

02 


★ 

BRA 

0UTL6B 


002B 

86 

20 


* 

0UTL6A 

LDA 

A #520 

LOAD SPACE 

0D2U 

BO 

I88B 

R 

0UTL6B 

JSR 

OUTCHR 

PRINT (A) 

0030 

86 

20 



LDA 

A #520 

LOAD SPACE 

0032 

BO 

IB88 

R 


JSR 

OUTCHR 

PRINT SPACE 

003b 

FE 

0280 

R 

0UTL7A 

LDX 

CUL1NE 

POINT TO LINE 

003b 

A6 

00 


0UTL7 

LDA 

A 0,X 

GET CHAR 

0D3A 

36 




PSH 

A 

SAVE A 

003b 

BO 

1 888 

R 


JSR 

OUTCHR 

PRINT CHAR 

003E 

OB 




INX 


BUMP POINTER 

0D3F 

32 




POL 

A 

RESTORE A 

0040 

81 

00 



CMP 

A #SOD 

CR? 

0042 

26 

F4 



BNE 

0UTL7 

NO 

0044 

86 

OA 



LOA 

A #SOA 

YES 

0046 

BO 

1 888 

R 


JSR 

OUTCHR 

PRINT LF 

0049 

7F 

0C66 

R 


CLR 

POP 


004C 

7F 

0C65 

R 


CLR 

MCOUNT 


004F 

7F 

02 77 

R 


CLR 

RELFLO 


0Ub2 

39 




RTS 



00b 3 

20 



BLANK 

FCB 

520 

BLANKS: 

0Db4 

20 




FCB 

520 


005b 

20 




FCB 

520 


00b6 

20 



BLANK3 

FCB 

520 


0057 

20 




FCB 

520 


005b 

20 



dLANKb 

FCB 

520 


0059 

20 



BLANK6 

FCB 

520 


ODbA 

20 




FCB 

520 




OQjb 04 


FCd $04 i£OT 

* CONVERT BINARY 16 BITS TO 5 DECIMAL CHARS 

* ON ENTRY <A,B> = 16 BIT BINARY VALUE 

* IXI = ADDRESS OF S BYTE STRING FOR DECIMAL 

* (ASCII) CONVERTED VALUE. 


* 


ODBC 

FF 

0J9D 

R 

CVBTD 

STX 


SAVEX 

SAVE DATA PTR 


ODdF 

CE 

0092 

R 


LDX 


#KIOK 

LOAD PTR TO CONSTANTS 

0D62 

7F 

0D9C 

R 

CVDEC1 

CLR 


SAVEA 

INIT DEC CHAR 


0U6U 

EO 

01 


CV0EC2 

SUB 

B 

1 .X 



0D67 

A2 

00 



SBC 

A 

0,X 



0D69 

25 

05 



BCS 


CVDEC5 

OVERFLOW 


0D6B 

7C 

0U9C 

R 


INC 


SAVEA 

BUMP CHAR BEING 

BUILT 

0U6E 

20 

F5 



BRA 


CVDEC2 



0D70 

EB 

01 


CVDEC5 

ADO 

B 

i.x 

RESTORE PARTIAL 

RESULT 

0D72 

A9 

00 



ADC 

A 

0,X 



OD74 

36 




PSH 

A 




0D7S 

FF 

0D9F 

R 


STX 


SAVEXI 



0D7b 

FE 

0D9D 

R 


LDX 


SAVEX 

LOAD STORE CHAR 

PTR 

0D7d 

B6 

0D9C 

R 


LDA 

A 

SAVEA 



OD/E 

dd 

30 



ADD 

A 

#$30 

MAKE ASCII CHAR 


ODBO 

A7 

00 



ST A 

A 

0,X 



0DB2 

32 




PUL 

A 




0DB3 

OB 




INX 





0Dd4 

FF 

0U9D 

R 


STX 


SAVEX 



0Dd7 

FE 

0L19F 

R 


LDX 


SAVEXI 

LOAD PTR TO CONSTANTS 

0D8A 

08 




INX 





ODBB 

08 




INX 





ODBC 

8C 

0D9C 

R 


CPX 


#KI0K+10 



0D3F 

26 

HI 



BNE 


CVDECI 



0D9I 

39 




RTS 









* CONSTANTS 




0D92 

2710 


KIOK 

FOB 


10000 



0D94 

03E8 



FOB 


1000 



0D96 

0064 



FOB 


100 



ODvd 

OOOA 



FDB 


10 



0D9A 

0001 



FOB 


1 




* 


* TEMPORARY STORAGE 

* 

0D9C 0001 SAVEA RMB 1 

0U9U 0002 SAVEX RMB 2 STORE DATA PTR 

0D9F 0002 SAVEXI RMB 2 PTR TO CONSTANTS 

* 

* PRINT ERROR AESSAGES SOUTINE * 

* ON ENTRY IXI = E n ROR# IN BCD * 

* 


★ 


OUAl 

0002 

cWNtiM 

RMB 


2 

ERROR # IN BCD 

0DA3 

2 A 

fcOMSA 

FCC 


'**** ERROR# ' 

OUAF 

0003 

ERMSB 

RMB 


3 

LRt<Ok # IN ASlII 

0JB2 

20 


FOB 


$20 BLANK 

ODBJ 

0003 

ERMSC 

RMB 


b ERROR# IN ASCII 

Oubb 

20 


FOB 


$20 BLANK 

OUBV 

3 A 


FCC 


' 1 * 


Cuba 

04 


FCd 


$04 HOI 

00 db 

36 

PRItU'E 

PSH 


A 


OUbU 

3/ 


PSH 


B 


0D6L, 

FF OL)A l 

U 

STX 


EfilMUM 

SAVE ERROR # 

OL)CU 

B6 Oi)A 1 

n 

LDA 

A 

ERN'JM 

GET ERROR # 

0JC3 

6.3 ?0 


ADD 

A 

#$30 

CONVERT TO ASCII 

OUCb 

til 00A F 

R 

STA 

A 

ERMSB 

SAVE 

ODCrt 

bo 0UA2 

ti 

LDA 

A 

ERNUM+1 

GE1 ERROR # 

OuCb 

44 


LSR 

A 


SHIFT TO HI GIFT NIBBLE 

odcu 

44 


LSI! 

A 



OoCu 

44 


LSR 

A 



ouct 

44 


LSR 

A 



01) L> 

oB 30 


ADD 

A 

#$30 

C0NVER1 TO ASCII 

OijUI 

til ODbO 

R 

STA 

A 

ERMSB+I 

SAVE 

01)1)4 

B6 OJA2 

R 

LDA 

A 

EUNUM+I 

get error# 

OuO/ 

64 Oh 


AND 

A 

#SOF 

MASK OUT LEFT NIBBLE 

ODD* 

6r> 30 


ADD 

A 

#$30 

CONVERT TO ASCII 

OI'Ul.’ 

'iil OOB 1 

R 

STA 

A 

ERMSB+2 

SAVE 

OuOb 

Ob OUb3 

«< 

LDX 


#ERMSC 

POINT TO LNUM AREA 

OUbi 

b6 02oF 

R 

LuA 

A 

LNUM 


0Jb4 

F6 02/0 

R 

LDA 


LNUM+I 


0Jb7 

bO ODbC 

u 

JSR 


CVbTD 

CONVERT LNUM TO DECIMAL 

ODEA 

CE 00A3 

R 

LDX 


#ERMSA 

PRINT MESSAGE 

OuEu 

bJ 1661 

R 

JSR 


PDATA! 


OUrO 

bO 0033 

R 

JSR 


0UTL7A 

PRINT LAST PART OF LINE 

01 Jr 3 

33 


PUL 

B 



0UF4 

32 


PUL 

A 



Oi)F‘j 

FE 02 att 

R 

LDX 


ECOUNT 

BUMP ECOUNT 

ODFo 

Od 


INX 




OUFV 

FF 0236 

R 

STX 


ECOUHT 


OUFC 

FE OoAl 

R 

LDX 


ERNUM 


00 r> 

39 


RTS 





* **Ai)i)wESS FYPE 1 ** 


* 

* [ ADC ADI) ANi) BIT CMP ,-OR LDA ORA SBC SUB) 
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★ 

* IMMEDIATE (2 BYTES)! 

* ccc a ccc ,» (Mumbe:? 

* CCC A #SYMi)OL CCC i) #SY'AriOL 

* CCC A #EXPRbSSION CCC U #EXPRESSICW 

* CCC A #'C CCC ;i #'C 

* 

* Diked (2 BYTES) Or? EXLENDcD(3 JYTEIS)! 

* CCC A MUMBLE CCC ii N'lMiiEP 

* CCC A SYMBOL CCC B SYMBOL 

* CCC A .EXPRESSION CCC ii EXPRESSION 

* 

* INDEXED (2 BYTES) I 

* CCC A NUMBED,X CCC ti NUMBER,X 

* CCC A SYMBOL,X CCC Ii SYMBOL,X 

* CCC A EXPRESSION,X CCC ii EXPRESSION,X 

* 


* 


OEX) 

BJ 

IObV 

R 

AiJUKI 

JSR 


AuRINL 

INIL ADORESS FIELD VALUES 

0EO3 

dO 

06E6 

B 


JSR 


NXlOX 

GEL NEXT TOKEN 

0E06 

Cl 

OJ 



CMP 

H 

#SOD 

EOL? 

Oh OB 

2b 

Ob 



BNE 


AJoRIB 

NO 

OEOA 

Ch 

0204 


ADuR1 A 

LDX 


#50204 

ERROR 

OEOU 

BO 

Ooiili 

k 


JSR 


PRINTE 

PRINT 

OHIO 

20 

dB 



BRA 


ADuR IE 

RETURN 

OE1 2 

130 

I0B7 

II 

ADDHIB 

JSR 


ABkCK 

CHECK FO.i REGISTER A OR B 

OE‘lb 

E6 

10o4 

H 


LOA 

B 

ABR 

NEITHER? 

Oh lb 

27 

EO 



BEQ 


ADuR1A 

YES ERROR 

Ohl A 

BO 

06E6 

II 


JSR 


NX LOK 

GEL NEXT TOKEN 

Ohio 

Cl 

23 



CMP 

Ii 

#523 

IMMEO. MODE? 

Oh IE 

26 

14 



BNE 


AUuRIC 

NO 

0E2I 

13 

lOdb 

II 


COM 


IMMED 

SET IMMEDIATE FLAG 

0E24 

BO 

06 E 6 

K 


JSR 


NX LOK 

GET NEXT TOKEN 

0h27 

Cl 

2/ 



CMP 

B 

#S27 

.</» ? 

OE2y 

26 

OA 


If 

BNE 


ADORIC 

NO 

0E2B 

EE 

027E 

II 


LUX 


CUCHAR 

GET NEXT CHAR 

0t2h 

Ao 

00 



LOA 

A 

O.X 


0E30 

13/ 

0C6V 

H 


SLA 

A 

ADR2 


0E33 

20 

OB 


* • 

BRA 


AUURIK 


Oh3a 

BO 

OVBb 

R 

A DOR 1C 

JSR 


NSEVL 

EVALUATE OPERAND 

Oh Jb 

BO 

100/ 

H 


JSR 


P2ERR 

PRINT PASS 2 ERRORS 

0E3I3 

E6 

1 Jdb 

B 


LOA 

B 

I IMMED 

IMMEDIATE MODE? 

0h3h 

27 

OC 



BEQ 


AUDI! ID 

NO 

0h40 

C6 

dO 


AOOHIK 

LOA 

B 

#SdO 

IMMEDIATE FORM A 

0E42 

E 7 

1007 

II 


SLA 

B 

ORBYA 

NIBBLE 

Oh 4b 

C6 

CO 



LDA 

B 

#sco 

OF 

Oh 47 

E7 

I08B 

R 


SLA 

B 

ORbYB 

MACHINE CODE 

0h4A 

20 

3C 



BRA 


ADDRIH 


0h4C 

BO 

0 6F6 

R 

A DDR 10 

JSR 


NX LOK 

GET NEXT TOKEN 

0E4E 

BO 

I0C4 

R 


JSR 


INXCK 

INDEXED? 

0h52 

26 

2A 


£ 

BNE 


ADoRIG 

YES 

0Eb4 

70 

02/d 

R 


1ST 


CMNFLG 

COMMON? 

Oho / 

26 

OA 



BNE 


AOURIL 

YES 

OEsy 

70 

02 77 

R 


1ST 


RELE'LG 

RELOG ? 

OEbC 

20 

Ob 



BNE 


ADDRIL 

YES 

OEbh 

E6 

OCod 

R 


LOA 

B 

ADRI 

DIRECT? 

OhOI 

27 

OE 



BEQ 


AOURIF 

YES 

Oh 03 

C6 

BO 


AOURIL 

LDA 

B 

#SBO 

EXTENDED,FORM A 

Ohfto 

E / 

1 Od7 

R 


SLA 

B 

ORBYA 

NIBBLE 

0b6b 

C6 

EO 



LDA 

B 

#SFO 

OF 

0E6A 

E / 

1 Odd 

R 


SLA 

B 

ORBYB 

MACHINE CODE 

0E6O 

BO 

llbE 

R 

AOUHIE 

JSR 


LCHAB3 

FORM MACHINE CODE 

Oh 70 

20 

iv 



BRA 


ADUR 1J 


0E72 

C6 

yo 


A OUR IF 

LDA 

B 

#syo 

DIRECT,FORM A 

0E74 

F7 

1087 

R 


SLA 

B 

ORBYA 

NIBBLE 

Oh 77 

C6 

00 



LDA 

B 

#suo 

OF 

0E79 

E 7 

1 Odd 

R 


SLA 

B 

ORbYB 

MACHINE CODE 

0E7C 

20 

OA 



BRA 


ADURIH 


Oh 7h 

C6 

AO 


ADUR 1 G 

LDA 

B 

#SAO 

INDEX ED,FORM A 

OEBO 

F7 

I0d7 

R 


SLA 

B 

ORBYA 

NIBBLE OF 

0Eb3 

C6 

EO 



LDA 

B 

#SEO 

OF 

0E8o 

E / 

lOdb 

R 


SLA 

B 

ORBYB 

MACHINE CODE 

OEBb 

BO 

1113 

R 

AOURIH 

JSR 


LCNAB2 

FORM MACHINE CODE 

OhBb 

BO 

1 IC2 

R 

AOURI J 

JSR 


LCLCN 

LC«=LC+LCN 

OEbh 

7E 

04yo 

R 


JMP 


MAIN 1 

RETURN TO MAIN LOOP 


* **AUI)EESS TYPE 2** 

* 


* IS LA I 

* 

* UIRECl (2 BYTES) OR EXLENuEUO BYTES) 
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* CCC A NUMBER 

* CCC A 'SYMBOL 

* CCC A EXPRESSION 

* 

* I NDEXED! 2 BYi tS) * 

* CCC A NUMBER,X 

* CCC A SYMBOL,X 

* CCC A EXPRESSION,X 


CCC 3 NUMBER 
CCC 3 SYMBOL 
CCC 3 EXPRESSION 


CCC B NUMBER,X 
CCC B SYMBOL,X 
CCC B EXPRESSION,X 


0E9l BO 
0E94 BLI 
OEM/ Cl 
0r99 26 

0E9b CE 
0E9E Bo 
OEAI 20 

0EA3 BO 
OEAo F6 
OEAV 27 
OEAB BO 
OEAE BO 
OEBI BO 
0EB4 BD 
OEB/ BO 
OEBA 26 

OEBC 70 
OEBE 26 

OECI 70 
0EC4 26 

OECb E6 
OECV 27 


1039 R APDR2 
00 r 6 R 
00 


0204 
00 BB R 
32 


* 

Anu;<2A 


IOB/ U ADUR2B 
10o4 R 
FO 

06F6 U 
09 Bb R 
10 01 R 
OoFo R 
I0C4 R 
2A 

★ 

027b R 
OA 

tt 

02/7 R 
Ob 

★ 

OCOB R 
Or 


JSR ADRI NT 

JSR NX10K 
CMP B #$0D 
BNE A00R2B 

LOX #$0204 
JSR PRINTS 
BRA AD0R2E 

JSR ABRCK 
LDA B ABR 
bEQ AIJ0R2A 
JSR NXTOK 
JSR NSEVL 
JSR P2ERR 
JSR NXTOK 
JSR INXCK 
BNE AU0R2G 

1ST CMNELG 
BNE AU0R2K 

1ST RELFLG 
BNE A0OR2K 

LOA B AORI 
BEQ AooR2F 


I NIT ADURESS EIELD FLAGS 

GET NEXT TOKEN 

EOL? 

NO 

ERROR 

PRINT 

RETURN 

CHECK FOR REGISTER A OR B 
NEITHER? 

YES ERROR 
GET NEXT TOKEN 
EVALUATE OPERAND 
PRINT PASS 2 ERRORS 
GET NEXT TOKEN 
INDEXED? 

YES 

COMMON? 

YES 

RELOC ? 

YES 

DIRECT? 

YES 


OECb C6 
OECu F/ 
OEDO C6 
0ED2 F 7 

OEUb UD 
OEDb 20 

OEDA C6 
OEDC F7 
OEDF C6 
OEEI F / 
0L-E4 20 

ObE6 C6 
OEEB F7 
OEEB 06 


ADDR2K LDA 
R STA 

LOA 

R STA 

* 

R ADUR2E JSR 
BRA 

* 

AUDH2F LDA 
R STA 

LDA 

R STA 

BRA 

* 

AD0R2G LDA 
R STA 

LDA 


d #$B0 
B ORBYA 
B #$F0 
B ORBYB 

LCNAB3 

AU0R2J 

B #$90 
B ORbYA 
B #$U0 
B ORBYB 
A0DR2H 

B #$A0 
B ORBYA 
B #$E0 


EXTENDED.FORM A 
NI BBLE 
OF 

MACHINE CODE 
FORM MACHINE CODE 


DIRECT,FORM A 

NIBBLE 

OF 

MACHINE CODE 


INDEXED,FORM A 

NIBBLE 

OF 


hi 10 jj R STA B ORbYB 

* 

BO IIIJ R ADDR2H JSR LC.NAB2 

BD 1IC2 R Ai)UR2J JSR LCLCN 

/L 0490 R JMP MAIN I 

* **ADURESS TYPE 


MACHINE CODE 

FORE MACHINE CODE 

LC* =LC+LCN 

RETURN TO MAIN LOOP 


* (ASL ASR CLR COM DEC INC LSR NEG ROL ROR TSTI 

* 

* ACCUMULATOR!1 BYTE)* 

* CCC A 

* CCC B 

* 

* EXTENDED (3 BYTES) I 

* CCC NUMBER 

* CCC SYMBOL 

* CCC EXPRESSION 

* 

* INDEXED!2 BYTES) 

* CCC NUMBER,X 

* CCC SYMBOL,X 

* CCC EXPRESSION,X 


BD 1039 R ADDR3 JSR ADR I NT 

BD 06F6 H JSR NXTOK 

Cl OU CMP B #$00 

26 OB BNE ADDR3B 

* 

CE 0204 LUX #$0204 

BD ODBB R JSR PRINTE 

20 2A BRA AUDI)3D 

★ 

BD I0U7 R ADUR3B JSR ABRCK 

70 I0B4 R 1ST ABR 

27 OF bEQ AUUR3C 


INIT ADDRESS FIELD FLAGS 

GET NEXT TOKEN 

EOL? 

NO 

E RROR 
PRINT 
RETURN 

CHECK FOR REGISTER A OR B 
NEITHER? 

YES 
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OH 3 

C6 

40 



LDA 

B 

#540 

ACCUMULATOR,FORM A 

OFI u 

F I 

I0B7 

R 


STA 

B 

ORBYA 

NIBBLE 

OEi a 

C6 

bO 



LDA 

B 

#SbO 

OF 

OF 1A 

F7 

108b 

R 


STA 

B 

ORBYB 

MACHINE CODE 

OF ID 

BD 

IDEA 

R 


JSR 


LCNABI 

FORM MACHINE CODE 

0F20 

20 

20 



BRA 


ADDR3F 


OF22 

BD 

09BS 

R 

ADDR3C 

JSR 


NSEVL 

EVALUATE OPERAND 

OF 2b 

BD 

I0D7 

R 


JSR 


P2ERR 

PRINT PASS 2 ERRORS 

OF2B 

BD 

06F6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

OF2b 

BD 

I0C4 

R 


JSR 


INXCK 

INDEXED? 

OF2E 

26 

OA 



BNE 


ADDR3E 

YES 

0F30 

C6 

70 



LDA 

B 

#570 

EXTENDED,FORM A 

0F32 

F7 

I0B7 

R 


STA 

B 

ORBYA 

NIBBLE OF MACHINE CODE 

0F3b 

BD 

11 1C 

R 

ADUR3D 

JSR 


LCN3 

FORM MACHINE CODE 

0F38 

20 

OB 



bRA 


ADDR3F 


OF.3A 

C6 

60 


ADDR3E 

LDA 

B 

#560 

INDEXED,FORM A 

OF3C 

F7 

10B7 

R 


STA 

B 

ORBYA 

NIBBLE OF MACHINE CODE 

OP3F 

BD 

1131 

R 


JSR 


LCN2 

FORM MACHINE CODE 

OF 4 2 

BD 

1 IC2 

R 

ADDH3F 

JSR 


LCLCN 

LC*=LC+LCN 

OF4b 

7E 

0490 

R 


JMP 


MAINI 

RETURN TO MAIN LOOP 


* **ADURESS TYPE 4** 

★ 

* IPSH PUL] 

•k 


* ACCUMULATOR (I BYTE ) I 






* PSH A 







* PSH B 







* PUL A 







* PUL B 

* 



OF 4b 

BD 

I0B9 

R 

* 

ADDR4 JSR 

ADR I NT 

INIT ADDRESS FIELD FLAGS 

0F4B 

BD 

06F6 

H 

JSR 

NXTOK 

GET NEXT TOKEN 

0F4E 

BD 

1087 

R 

JSR 

ABRCK 

CHECK FOR A,B REGS 

OFbl 

7D 

I0B4 

R 

1ST 

ABR 

NEITHER ? 

0F54 

26 

06 


BNE 

ADDR4A 

NO 

0FS6 

CE 

0204 


LUX 

#50204 

ERROR 

OF 69 

BD 

ODBB 

R 

JSR 

PRINTE 


OFbC 

7C 

I08B 

R 

ADUR4A INC 

ORBYB 

ORBYB!=01 

OFbi- 

BD 

IDEA 

R 

JSR 

LCNABI 

FORM mc 

0F62 

BD 

II C2 

R 

JSR 

LCLCN 

LC*=LC+LCN 

0F6b 

7E 

0490 

R 

JMP 

MAINI 

RETURN TO MAIN LOOP 


* **ADURESS TYPE b** 

* 

* (CPX LUS LUX) 

★ 

* I MMEDIATE(3 BYTES)! 

* CCC #NUMBER 

* CCC #SYMBOL 

* CCC #EXPRESSI()N 

* CCC #'CC 

* 

* DIRECTC2 BYTES) OR EXTENDED (3 BYTES)! 

* CCC NUMBER 

* CCC SYMBOL 

* CCC EXPRESSION 

* 

* INDEXED!2 BYTES) 

* CCC NUMBER,X 

* CCC SYMBOL,X 

* CCC EXPRESSION,X 

* 


* 


0F6b 

BD 

1089 

R 

A DDRS 

JSR 


ADR I NT 

INIT ADDRESS FIELD FLAGS 

0F6b 

BD 

06F 6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

0F6E 

Cl 

Ou 



CMP 

B 

#S0D 

EOL? 

0h70 

26 

08 



BNE 


AUDR5B 

NO 

OF 72 

CE 

0240 


ADDRSA 

LDX 


#50240 

E RROR 

OF/S 

BD 

ODBB 

R 


JSR 


PRINTE 

PRINT 

0F7b 

20 

46 



BRA 


ADDRbE 

RETURN 

0F7A 

Cl 

23 


ADDRSB 

CMP 

B 

#523 

IMMEDIATE? 

0F7C 

26 

19 



BNE 


AUDR5C 

NO 

0F7E 

73 

108b 

R 


COM 


IMMED 

SET IMMEDIATE FLAG 

OFBI 

BD 

06F6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

0F84 

Cl 

27 



CMP 

U 

#527 

II f it 7 

OFBo 

26 

OF 



BNE 


ADDR5C 

NO 

OF BB 

FE 

027E 

R 


LDX 


CUCHAR 

YES, GET NEXT TNO CHARS 

0F8B 

A6 

00 



LDA 

A 

O.X 


0F8U 

B7 

0C68 

R 


STA 

A 

ADRI 


0F90 

A6 

01 



LDA 

A 

1 ,X 


OF 9 2 

B7 

0C69 

R 


STA 

A 

ADR2 




0F9d 

20 

29 



BRA 


ADDR5E 



OFV7 

BD 

09 US 

R 

ADDRBC 

JSR 


NSEVL 

EVALUATE OPERAND 


0F9A 

BD 

1007 

R 


JSR 


P2ERR 

PRINT PASS 2 ERRORS 

OFVU 

F6 

108b 

R 


LDA 

B 

I MM ED 

IMMEDIATE? 


OFAO 

2 I 

02 



BEQ 


ADDR5D 

NO 


0EA2 

20 

1C 



bRA 


ADDR5E 

YES 


OP A4 

BD 

06F6 

R 

ADDRbU 

JSR 


NXTOK 

GET NEXT TOKEN 


OEA/ 

BD 

I0C4 

R 


JSR 


INXCK 

INDEXED? 


OFAA 

26 

20 



BNE 


ADDR5G 

YES 


OFAC 

70 

02 78 

R 


1ST 


CMNFLG 

COMMON? 


OrAF 

26 

OA 



BNE 


ADDRbK 

YES 


OFBI 

70 

02 77 

R 


1ST 


RELFLG 

RELOC ? 


0FB4 

26 

Ob 


1r 

BNE 


ADDRbK 

YES 


0FB6 

F 6 

OCoB 

R 


LDA 

B 

ADR 1 

DIRECT? 


OFB9 

21 

OA 



BEO 


AUDRbr 

YES 


OFBb 

C6 

30 


ADDRbK 

LDA 

b 

#$30 

EXTENDED,FORM a 


OF BU 

F7 

1 Od / 

R 


SIA 

B 

ORBYA 

NIBBLE OF MACHINE 

CODE 

OF CO 

BU 

1 I7C 

R 

A DORSE 

JSR 


LCN3 

FORM MACHINE CODE 


OFCJ 

20 

OF 



BRA 


ADuRbJ 



OFCb 

C6 

10 


A DDRS F 

LDA 

B 

#SIO 

DIRECT.FORM A 


OFC7 

F7 

108/ 

R 


STA 

B 

ORbYA 

NIBBLE OF MACHINE 

CODE 

OFCA 

20 

Ob 



BRA 


ADDRbH 



ofoc 

C6 

20 


ADURbG 

LDA 

B 

#S20 

INDEXED,FORM A 


OFCE 

F7 

1067 

R 


STA 

B 

ORBYA 

NI BBLE OF MC 


OFDI 

BU 

1131 

R 

ADDRbH 

JSR 


LCN2 

FORM MC 


0FU4 

bD 

1 IC2 

R 

AUURbJ 

JSR 


LCLCN 

LCI=LC+LCN 


OFU7 

7E 

0490 

R 


JMP 


MAIN! 

RETURN TO MAIN LOOP 


★ **ADDRESS TYPE 6** 

★ 

★ CSTX,STS] 

* 

* DIRECT (2 BYTES) OR EXTENDEDC3 BYTES)! 

* CCC NUMBER 

* CCC SYMBOL 

* CCC EXPRESSION 

* 

* INDEXED (2 BYTES) 

* CCC NUMBER,X 

* CCC SYMBOL,X 

* CCC EXPRESSION,X 

* 


OFDA 

BU 

1069 R AUUR6 

JSR 

ADRINT 

INIT ADDRESS FIELD FLAGS 

OPUU 

BU 

0oF6 R 

JSR 

NXTOK 

GET NEXT TOKEN 

OFEO 

Cl 

OD 

CMP 

B #S00 

EOL? 

0FE2 

26 

B3 

BNE 

ADUR5C 

NO 

0FE4 

20 

BC 

BRA 

ADDR5A 

YES,ERROR 


* **ADURESS TYPE 7** 

* IJMP JSRJ 

* 


k 

* INDEXED (2 BYTES)! 

* CCC NUMBER,X 

* CCC SYMBOL,X 

* CCC EXPRESION.X 

k 


k 


0FE6 

BD 

1069 

R 

ADDR7 

JSR 


ADRINT 

INIT ADDRESS FIELD FLAGS 

0FE9 

BD 

06F6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

OF EC 

Cl 

OD 



CMP 

B 

#SOD 

EOL? 

OFEE 

26 

OB 



BNE 


ADUR7A 

NO 

OFFO 

CE 

0204 



LUX 


#$0204 

E RROR 

0FF3 

BD 

OUBB 

R 


JSR 


PRINTE 

PRINT 

0FF6 

2J 

OE 



BRA 


ADDR7B 


OFFb 

BD 

09BS 

R 

ADDR7A 

JSR 


NSEVL 

EVALUATE OPERAND 

OFFB 

BD 

I0D7 

R 


JSR 


P2ERR 

PRINT PASS 2 ERRORS 

OFFE 

BD 

06F6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

1001 

BD 

I0C4 

R 


JSR 


INXCK 

INDEXED? 

1004 

26 

OA 



BNE 


ADDR7C 

YES 

1-006 

C6 

10 


AUDR7B 

LDA 

8 

#$10 

EXTENDED,FORM A NIBBLE 

IOOB 

F7 

1067 

R 


STA 

B 

ORBYA 

OF MC 

100b 

BD 

1 I7C 

R 


JSR 


LCN3 

FORM MACHINE CODE 

IOOE 

20 

03 



BRA 


ADUR7U 


1010 

BU 

1131 

R 

ADUR7C 

JSR 


LCN2 

FORM MACHINE CODE 

1013 

BU 

1 IC2 

R 

ADDR7D 

JSR 


LCLCN 

LCi-LC+LCN 

1016 

7E 

0490 

R 


JMP 


MAINI 

RETURN TO MAIN L(X)P 


* **AUDRESS TYPE B** 

k 

* IBCC BCS BEQ BGE BGT BHI BLE DLS 
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* BLT BMI BNE DPL BRA BSR BVC BVS] 


* 

* RELATIVE (2 BYTES)! 






* 

CCC NUMBER 






* 

CCC SYMBOL 






★ 

* 

CCC EXPRESSION 


101 V 

BD 

1089 

R 

★ 

ADDR8 

JSR 

ADR I NT 

INIT ADDRESS FIELD FLAGS 

101 c 

BD 

06 F 6 

R 



JSR 

NXTOK 

GET NEXT TOKEN 

101 F 

Cl 

OD 




CMP 

B #$0D 

EOL? 

1021 

26 

08 




BNE 

ADDR8A 

NO 

1023 

CE 

0204 




LUX 

#$0204 

ERROR 

1026 

BD 

OUBB 

R 



JSR 

PRINTE 

PRINT 

1029 

20 

36 




BRA 

ADUR8U 


I02B 

7D 

0275 

R 

ADDR8A 

1ST 

PASS 

PASS 7 

I02E 

27 

31 




BEO 

ADDR3D 

PASSI 

1030 

BD 

09B5 

R 



JSR 

NSEVL 

PASS 2 EVAL OPERAND 

1033 

BD 

I0D7 

R 



JSR 

P2ERR 

PRINT PASS 2 ERRORS 

1036 

FE 

0273 

R 



LDX 

LC 

LSAVE!-LC+2 

1039 

OB 





INX 



I03A 

08 





INX 



I03B 

FF 

0285 

R 



STX 

LSAVE 


I03E 

B6 

0C69 

R 



LDA 

A ADR2 

CALCULATE OFFSET 

1041 

F6 

0C6B 

R 



LDA 

B ADRI 


1044 

BO 

0286 

R 



SUB 

A LSAVE+I 


1047 

F2 

0285 

R 



SBC 

B LSAVE 


104 A 

Cl 

FF 




CMP 

B #SFF 

CHECK FOR OUT OF RANGE 

104C 

26 

03 




BNE 

ADDR8E 


I04E 

4D 





TST 

A 

NEGATIVE? (FF - 80) 

I04F 

2B 

OD 




BMI 

ADDR8C 

OK 

1051 

Cl 

00 


ADDR8E 

CMP 

B #$00 


1053 

26 

03 




BNE 

ADDR8F 

OUT OF RANGE 

1055 

40 





'TST 

A 

POSITIVE? (00 - 7F> 

1056 

2A 

06 




BPL 

ADDR8C 

OK 

I05B 

CE 

0208 


AD0R8F 

LDX 

#$0208 

E RROR 

I05B 

BD 

ODBB 

R 


* 

JSR 

PRINTE 

PRINT 

I05E 

B7 

0C69 

R 

ADDR8C 

STA 

A ADR2 

SAVE OFFSET 

1061 

BD 

1131 

R 

ADDR8D 

JSR 

LCN2 

FORM MC 

1064 

BD 

IIC2 

R 



JSR 

LCLCN 

LC!=LC+LCN 

1067 

7E 

0490 

R 



JMP 

MAIN 1 

RETURN TO MAIN LOOP 





★ 


*AtJuh'h f )S I'YPL y** 





★ 

[ABA 

CBA 

CLC CL I CLV 

DES DEX INS 





★ 

I NX 

NOP 

HII RTS SBA 

SEC SEI SPIV 





* 

SR I 

1AB 

TAP 13A TP A 

TSX TXS rtAI ) 





k 

INHERENT! I BYiEJi 






k 

k 

CCC 




I06A 

BD 

1089 

R 

k 

A ’DRV 

JSR 

AOrtlNT 

INIT ADDRESS FIELD FLAGS 

1061) 

7;J 

0275 

R 



1ST 

PASS 

PASS ? 

1070 

2/ 

03 




BEO 

AiDRVA 

PASS 1 

1072 

BD 

1 o2E 

R 



JSR 

OUT BIN 

OUTPUT MC 

IO/_> 

/C 

OCob 

R 

A 1 DRV A 

INC 

MCOJNT 

MCOU'JTi = l 

10/6 

7C 

0234 

R 



INC 

LCN 

LCN * -1 

10/6 

BD 

GCJE 

R 



JSR 

PRINTL 


I07E 

BD 

1 IC2 

R 



JSR 

LCLCN 

LC« =LC+LCN 

1061 

liz 

04 90 

H 



JMP 

MAIN! 

RETURN TO MAIN L(X)P 


* ROUTINES USED To I'JIT AND CHECK ADDRESS FIELD 

* FLAGS,MC FORMS AND LISTING FLAGS. 


1034 

0001 


ABR 

RMB 

1 

1085 

0001 


I MMED 

RMB 

1 

1086 

0.001 


INDEX 

RMB 

1 

103/ 

0001 


ORBYA 

RMB 

1 

108o 

0001 


ORoYB 

RMB 

1 

1089 

/F 

0234 

R 

ADR I NT 

CLR 

LCN 

I08C 

It 

02 77 

R 


CLR 

RELFLG 

lObF 

1 F 

0276 

R 


CLR 

CMNF LG 

1092 

7F 

0279 

R 


CLR 

EXIF LG 

1095 

7F 

02/A 

R 


CLR 

ENTFLG 

1093 

7F 

OC 66 

R 


CLR 

POP 

109b 

F/ 

OCol 

R 


STA B 

OPCD 

I09E 

7F 

0C6S 

R 


CLR 

MCOUNT 

IOAI 

7F 

1084 

R 


CLR 

ABR 

I0A4 

7F 

1085 

R 


CLR 

I MMED 

I0A7 

7F 

1086 

R 


CLR 

INDEX 

I0AA 

It 

0C68 

R 


CLR 

ADRI 

IOAU 

It 

0C69 

R 


CLR 

ADR2 


REG A OR B FLAG 
IMMEDIATE MODE FLAG 
INDEX MODE FLAG 
Form for a nibble of mc 

FORM FOR A NIBBLE OF MC 


SAVE OPCODE 


122 



IOBO 

7F 

1 Od7 R 

CLR 

ORBYA 

IOB3 

7 F 

IOBU R 

CLR 

ORBYB 

I0B6 

29 


RTS 



■* 


★ 

* CHECK FOR PRESENCE OF A Ofl B REG 





* 




l OB / 

Cl 

41 

ABRCK 

CMP 

B 

#$4 1 

10B9 

27 

OB 


BEQ 


ABRCKA 

IOBB 

Cl 

42 


CMP 

B 

#$42 

IOBD 

2/ 

01 


BEQ 


ABRCKA 

IOBF 

39 


* 

RTS 



IOCO 

F 7 

I0S4 

R ABRCKA 

STA 

B 

ABR 

1OC3 

39 


* 

RTS 




"A" ? 

YES 
“B” ? 

YES 

NEITHER, RETURN 
SAVE REG 


★ 


★ 

* CHECK FOR INDEXED MODE 

★ 


I0C4 

Cl 

2C 


INXCK 

CMP 

B #S2C 

? 

I0C6 

26 

OB 



BNE 

INXCKR 

NO 

IOCB 

BD 

06 F 6 

R 


JSR 

NXTOK 

GET NEXT TOKEN 

IOCB 

Cl 

bB 



CMP 

B #SB3 

.•x« ? 

IOCD 

26 

04 



BNE 

INXCKR 

NO 

IOCF 

73 

I0B6 

R 


COM 

INDEX 

INUEX«=FF 

1 0D2 

39 




RTS 



I0D3 

7F 

10B6 

R 

INXCKR 

CLR 

INDEX 


I0D6 

39 



* 

RTS 







* 

* CHECK FOR PASS 2 ERRORS 

10D7 

Cl 

FF 


P2ERR 

CMP 

B #$FF 

ERROR (FROM NSEVL)7 

I0D9 

26 

OE 



BNE 

P2ERRB 

NO 

IODB 

7D 

027b 

R 


1ST 

PASS 

YES,PASS? 

1 ODE 

27 

03 



BED 

P2E I'iA 

PASSI 

1 DEO 

BD 

OJBB 

R 


JSR 

PRINTS 

PASS 2,PRINT ERROR 

I0E3 

7F 

OC*c 

R 

P2ERRA 

CLR 

ADIII 


lOco 

73 

0C6d 

k 


COM 

AuRI 

ADR 1* =FF (TO KILL DIRECT: 

I0u9 

39 



P2ERRB 

RTS 







* ROUTINES 

TO FINISH 

UP ADDRESS TYPE PROCESSING 


* THESE ROUTINES DO THE FOLLOWINCH 

* PASS 1 

* A. LCIJ«= # OF BYTES IN THE INSTRUCTION 

* PASS 2 

* A. FORM COMPLETE OPCODE 

* B. OUTPUT MACHINE COoE GENERATED 

* C. PRINT A LINE OF LISTING 

* D. LCN* = # OF BYTES IN THE INSTRUCTION 


* LCNABI I BYTE ACCUMULATOR INSTRUCTIONS 

★ 


IOEA 

7D 

02 7b 

R 

LCNABI 1ST 

PASS 

PASS? 


IUt:D 

21 

20 



BEQ 

LNABIS 

PASS 1 


IOEF 

F6 

OC67 

R 


LDA B 

OPCJ 

PASS 2,LOAD PARTIAL OPCODE 





* 

EXTENDED (3 

BYTES)* 







★ 

CCC NUMBER 







* 

CCC SYMBOL 







★ 

CCC EXPRESSION 



I0F2 

B6 

10B4 

R 


LDA A 

ABR 

A OR B ? 


lOFb 

21 

OF 



BEQ 

LNABIO 

NEI l'HER 


1 OF / 

ai 

42 



CMP A 

#S42 

"6" 1 


I0F9 

27 

Ob 



BEQ 

LNAB1B 

YES 


IOpB 

FA 

106/ 

R 


ORA B 

ORBYA 

A FORM COMPLETE 

OPCODE 

IOfE 

20 

03 



BRA 

LNABIC 



11 00 

FA 

1086 

R 

LtNAUIB ORA B 

ORoYB 

B FORM COMPLETE 

OPCODE 

1 103 

F / 

OC6 7 

H 

LNABIC STA B 

OPCD 

SAVE 


1 106 

BD 

1 d2E 

R 

LNABIO JSR 

OUT BIN 

OUTPUT OPCOJE 


1109 

7C 

OCOb 

R 


INC 

MCOUNT 

MCOUNT*=1 


1 IOC 

BD 

OCOE 

R 


JSR 

PRINTL 

PRINT A LINE OF 

LISTING 

mop 

7C 

02d4 

R 

LNABIS INC 

LCN 

LCN= 1 


1112 

39 




RTS 


RETURN 



* 


* 


* LCNABI 2 BYTE REGISTER (A ,B)«INDEXED, 

* DIRECT, AND IMMEDIATE TYPE INSTRUCTIONS 

* 


1113 

7D 

02 7b 

R 

LCNAB2 

1ST 


PASS 

PASS ? 

1116 

21 

3F 



BEQ 


LCN2B 

PASS 1 

1 1 IB 

Po 

0C67 

R 


LDA 

B 

OPCD 

PASS 2,GET PARTIAL OPCODE 

1 1 Id 

Bo 

I0d4 

R 


LDA 

A 

ABR 

A OR B ? 

IIIE 

2/ 

2b 



BEQ 


LCN2A 

NEITHER 

1 120 

81 

42 



CMP 

A 

#$42 

B ? 

1 122 

27 

Ob 



BEQ 


LNB2 

YES 


123 



1 124 

FA 

I0B7 

R 


ORA 

B ORbYA 

A, FORM COMPLETE OPCODE 

.1 127 

20 

03 



BRA 

LNAB2S 


1129 

FA 

I0BB 

R 

LNB2 

ORA 

B ORBYB 

B, FORM COMPLETE OPCODE 

112C 

F7 

0C67 

k 

LNAB2S 

STA 

B 0PCD 

SAVE 

J I2E 

20 

14 


* 

bSA 

LCN2A 

FINISH UP 





* 

* LCN2 

2 BYTE INDEXED 

.DIRECT,AND IMMEDIATE TYPE 





* INSTRUCTIONS 


1 131 

7D 

027b 

R 

LCN2 

1ST 

PASS 

PASS ? 

1134 

27 

21 



BEQ 

LCN2B 

PASS 1 

1130 

7F 

02 // 

R 


CLR 

RELFLG 


1 139 

7 F 

02 /d 

IJ 


CLR 

CMNPLG 


I 1 3C 

F 6 

0CO7 

li 


LOA 

B OPCD 

PASS 2,Gel PARTIAL OPCODE 

1 1 31- 

FA 

1067 

R 


ORA 

B ORlsYA 

FORM COMPLETE OPCODE 

1 1 42 

F7 

006/ 

R 


STA 

li OPCD 

SAVE 

114b 

BU 

1B2E 

R 

LCN2A 

JSR 

OUTBIN 

OUTPUT OPCODE 

1146 

F6 

0C69 

R 


LDA 

B ADR2 

GET ADDRESS PART OF MC 

1 1 4b 

BD 

1B2E 

R 


JSR 

Oil ill IN 

OUTPUT IT 

1 14b 

7 C 

0C6b 

R 


INC 

MCOUNT 

MCOUNT*=2 

1 Ibl 

7C 

0C6b 

R 


INC 

MCOUNT 


1 1 b4 

BD 

OCOE 

R 


JSR 

PJ? I NTL 

PRINT A LINE OF LISTING 

lib/ 

7C 

02B4 

R 

LCN2B 

INC 

LON 

LCN*=2 

1 IbA 

7C 

0234 

R 


INC 

LCN 


11 uD 

39 



★ 

RTS 


RE TURN 





* 

* LCNAB3 3 

BYTE REGISTER(A.B)lEXTENDED TYPE 





* INSTRUCTIONS 


11bE 

/ J 

027b 

R 

LCNAB3 

1ST 

PASS 

PASS ? 

1161 

2/ 

5b 



BEQ 

LCN3B 

PASS 1 

1 1 03 

F6 

0067 

R 


LDA 

B OPCD 

PASS 2 GET PARTIAL OPCODE 

I 1 60 

B6 

I0d4 

R 


LDA 

A ABR 

A OR B 7 

1169 

27 

IF 



BEQ 

LCN3A 

NEITHER 

1 I6B 

dl 

42 



CMP 

A #$42 

B ? 

1 1 6b 

27 

06 



BEQ 

LNb3 

YES 

1 1 Bi¬ 

FA 

1067 

H 


ORA 

B ORBYA 

A, FORM COMPLETE OPCODE 

ll U 

20 

03 



BRA 

LNAB3S 


1 1 74 

FA 

1 Odd 

R 

LN83 

ORA 

B ORBYB 

B, FORM COMPLETE OPCODE 

1 1 77 

F7 

0067 

R 

LNAB3S 

STA 

B OPCD 

SAVE 

11 7 A 

20 

OE 



BRA 

LCN3A 

FINISH UP 


* 

★ 

* LCN3 3 BYTE EXTENDED AND IMMEDIATE TYPE 

* INSTRUCTIONS 


117C 

7D 

02 1b 

R 

★ 

LCN3 

Tsr 


PASS 

PASS 7 

1 I7F 

27 

37 



BEQ 


LCN3B 

PASS 1 

1181 

F6 

0C67 

H 


LDA 

B 

OPCD 

GET PARTIAL OPCODE 

1 IB4 

FA 

I0d7 

R 


ORA 

B 

ORBYA 

FORM COMPLETE OPCODE 

1 Id7 

F7 

0C67 

R 


S'TA 

B 

OPCD 

SAVE 

1 IbA 

BD 

1 d2E 

R 

LCN3A 

JSR 


OUTBIN 

OUTPUT OPCODE 

1 IdD 

F6 

0C6b 

R 


LDA 

B 

ADR 1 

OUTPUT THE REST OF THE MC 

1190 

BD 

ld2E 

H 


JSR 


OUTBIN 


1193 

F6 

0C69 

R 


LDA 

B 

ADR2 


1 1 96 

BD 

IB2E 

R 


JSR 


OUTBIN 


1 199 

7 D 

027d 

R 


1ST 


CMNFLG 

COMMON? 

1 I9C 

2/ 

04 



BEQ 

*+6 

NO 

1 I9E 

C6 

4D 



LDA 

B 

#'rt 

"COMMON" 

1 1 AO 

20 

07 



BRA 

LCN3C 


1 IA2 

7D 

02 n 

R 


1ST 


RELFLG 

RELOC 7 

1 lAd 

27 

Ob 


* 

BEQ 


*+/ 

NO 

1 1 A/ 

C6 

b2 



LDA 

B 

#Sd2 

LOAD “R" 

1 1 Av 

BJ 

IB42 

R 

LCN3C 

JSR 


OUTBNR 


II AC 

7C 

0C6b 

H 


INC 


MCOUNT 

MCOUNT* =3 

1 1 Al- 

7C 

0C6d 

R 


INC 


MCOUNT 


1 1 B2 

7C 

0C6b 

R 


INC 


MCOUNT 


1 IBb 

BD 

OCOE 

R 


JSR 


PRINTL 

PRINT A LINE OF LISTING 

1 1 Bid 

7C 

0284 

R 

LCN3B 

INC 


LCN 

LCN*=3 

11 BB 

7C 

02B4 

H 


INC 


LCN 


1 IBE 

7C 

02B4 

R 


INC 


LCN 


1 ICI 

39 



* 

* 

RTS 



RETURN 


LCLCN LCi=LC+LCN 



ADD LCN 


I IC2 B6 02 M R i-CLCN 
I ICB F6 02/3 R 
I ICB BB 02B4 R 
I ICB C9 00 
I 1 CL) B7 0274 R 
1100 F 7 0273 R 
1103 39 


LDA A LC+I 

LDA ri LC 
ADO A LCN 
ADC B #S00 
STA A LC+I SAVE LC 

SLA B LC 

RTS RETURN 


* POCMN: ALLOCATE COMMON STORAGE AREAS 

* 


1 ID4 

DJ 

lOav 

K 

POCMN 

J5R 

AURIHI 


1 1 D/ 

bD 

UIA 

R 


JSi l 

LBLCK 


1 IDA 

bo 

06 F 6 

R 


JS:i 

NXTOK 

GET SYMBOL NAME 

1 1 JO 

Cl 

01 



CMP 

B #1 

OK 7 

1 Ur 

2/ 

Oo 



BtQ 

P0CMN2 

YES 

1 1 hi 

Cc 

0210 


POCV.NO 

Ll)X 

#$02.1 6 

ERROR 

1 1 E4 

BD 

OobD 

H 

POCMN 1 

JSR 

PRINtc 


1 IE7 

20 

■jJ 



BRA 

P0C.MN4 


1 IE9 

/D 

02 lb 

R 

POCMN2 

LSI' 

PASS 

PASS 7 

1IEC 

26 

41 



BNE 

P0CMN3 

PASS 2 

11 He 

HD 

O/F'B 

R 


JSR 

STOSYM 

ENTER NAME IN SYMT/ 

1 IFI 

FE 

02B2 

R 


LDX 

SYMPT R 


1 11-4 

FF 

I24C 

R 


SIX 

CMNXS 

SAVE ENTRY ADDRESS 

1 IF7 

BD 

06F 6 

R 


JSR 

NXTOK 

GET uELIM. 

UFA 

Cl 

2C 



CMP 

B #$2C 


11 FC 

26 

E3 



BNE 

POCMNO 

NO 

1 1 FE 

BO 

OoF6 

R 


JSi? 

NXTOK 

POINT TO OPERAND 

1201 

BO 

OVBj 

R 


JSR 

NSEVL 

GET VALUE 

1204 

Cl 

FF 



CMP 

|j #$FF 

OK? 

I20o 

27 

DC 



BEO 

POCMN1 

NO 

1203 

FE 

I24C 

R 


LDX 

CMNXS 

POINT TO ENTRY 

120b 

B6 

BF 



LDA 

A #$BF 


1200 

A4 

08 



AND 

A 8,X 

TURN OFF REL BIT 

I20F 

BA 

10 



ORA 

A #$ 10 

TURN ON COMMON BIT 

1211 

A7 

08 



STA 

A 8.X 


1213 

B6 

0313 

R 


LDA 

A CMNLC 

GET COMMON LC 

1216 

A7 

06 



STA 

A 6,X 

STORE IN ENTRY 

12 la 

B6 

0314 

R 


LDA 

A CMNLC+I 


12 IB 

A7 

07 



STA 

A 7 ,X 



* 


★ CMNLC*=CMNLC+IADRI t ADR2] 


★ 


I2IU 

B6 

0C69 

H 


LDA 

A ADH2 



1220 

F6 

0C6d 

R 


LUA 

B ADRI 



1223 

BB 

0314 

R 


ADD 

A CMNLC+I 



1226 

F9 

0313 

H 


ADC 

B CMNLC 



1229 

B7 

0314 

R 


STA 

A CMNLC+I 



I22C 

F7 

0313 

R 


STA 

B CMNLC 



I22F 

BJ 

0867 

R 

P0CMN3 

JSR 

LKPSYM 

LIX)K UP SYMBOL 

1232 

FE 

02B2 

R 


LDX 

SYMPTR 

POINT TO ENTRY 

123J 

EE 

06 



LDX 

6,X 

GET COMMON 

ADDRESS 

1237 

FF 

0C68 

R 


SIX 

ADRI 

SET UP FOR 

PRINTL 

I23A 

73 

0C66 

R 


COM 

POP 



123u 

73 

027B 

R 


COM 

CMNFLG 



1240 

7C 

0C6j 

H 


INC 

MCOllNT 



1243 

7C 

0C6S 

R 


INC 

MCOUNT 



1240 

BD 

OCOE 

R 

P0CMN4 

JSR 

PR I NIL 



1249 

7E 

0490 

R 


JMP 

MAIN! 



I24C 

0002 


★ 

CMNXS 

RMB 

2 







* POENJi PROCESS END 

PSEIIDOP 



★ 


I24L 

BJ 

iujy 

R 

POtNO 

JSR 

ADRINT 

INIT FLAGS 

1 2 J1 

BJ 

IBIA 

R 


JSR 

LBLCK 

CHECK FOR A LABEL 

1 2j4 

7 J 

021o 

R 

POtNJO 

iST 

PASS 

PASS ? 

126/ 

26 

Or 



BNE 

P0END2 

PASS2 

1269 

He 

0273 

R 


LDX 

LC 

PA SSI 

I26C 

FF 

02 71 

R 


SIX 

TSTPH 

TSTPH* =LC 

I26F 

73 

027b 

R 


COM 

PASS 

PASS«=PASS2 

1262 

BJ 

02^F 

R 

k 

JSR 

RESTR 

RENI(ID INPUT FILE 

1266 

7H 

046/ 

R 

k 

JMP 

PASS2 

EXECUTE PASS? 

126a 

Ft 

02 71 

R 

k 

P0END2 

LUX 

1 ST PH 

PHASING ERRORS? 

l26o 

BC 

02/3 

H 


CPX 

LC 


I26E 

27 

06 



BEQ 

ENDP2 

NO 

12/0 

Cc 

0220 



LDX 

#$0220 


1273 

BD 

OUHB 

R 


JSR 

PRINTE 

PRINT ERROR 


* 


125 



1276 

B6 026E 

R 

EN0P2 

LDA A OPENS 


12 79 

6b 60 



BIT A #S80 

LISTING? 

12 7b 

20 06 



BNE EN0P3 

NO 

I27D 

BD OCOE 

R 


JSR PRINTL 


1280 

SO I3BE 

R 


JSR CRLF 


I2d3 

B6 026E 

R 

EN0P3 

LOA A OPENS 


1266 

Bb 20 



BIT A #$20 

LIST SYMTAB? 

1266 

2 7 03 



BEQ SORTI 

YES 

I26A 

7E 1340 

R 


JMP ENDP6 

NO 

12ou 

CE I3CB 

R 

SORi'l 

LDX #ZZZ 

INIT SORT 

1290 

FF 1301 

H 


STX CBLOCK 


1293 

7F 130b 

R 


CLR SORTF 

CLEAR SORT FLAG 

1296 

FE 0268 

R 


LDX SYMTAB 

POINT TO TABLE 

1299 

20 09 



BRA SORTS 


129b 

08 


S0RT2 

INX 


I29C 

08 



INX 


1290 

08 



INX 


I29E 

08 



INX 


I29F 

08 



INX 


I2A0 

06 



INX 


I2AI 

06 



INX 


12A2 

08 



INX 


I2A3 

06 



INX 


I2A4 

BC 026C 

R 

S0RT3 

CPX SYMENO 

AT TABLE END? 

I2A/ 

26 OB 



BNE S0RT2A 

NO 

I2A9 

7D 130b 

R 


TST SORTF 

FOUND AN ENTRY? 

I2AC 

27 03 



BEQ *+b 


12 At 

7E I2EB 

R 


JMP S0RT5 

PRINT ENTRY 

I2BI 

7E 1340 

R 

★ 

JMP EN0P6 

ALL DONE 

I2B4 

E6 00 

S0RT2A 

LOA B O.X 


I2be 

Cl 20 



CMP B #$20 

BLANK? 

I2B6 

27 El 


* 

BEQ SORTS 

YES, GET NEXT ENT 

12bA 

E6 08 



LDA B 8,X 


1 2bC i 

Cl FF 



CMP B #$FF 

USED ENTRY? 

12ric 

27 OB 



bEQ S0RT2 

YES 


* 


* COMPARE ENTRY AT CBLOCK WITH HEN ENTRY 

* 


I2C0 

FF 

1303 

R 


STX 

CXS2 

SET UP FOR COMPARISON 

12C3 

FF 

07Ea 

R 


STX 

PSTNG2 

I2C6 

FE 

1301 

R 


LOX 

CBLOCK 


I2C9 

FF 

07E3 

R 


STX 

PSTNGI 


1200 

C6 

06 



LOA 

8 #6 


I2CE 

F7 

07E7 

R 


STA 

b PCOUNT 


12DI 

CE 

07E3 

R 


LUX 

#PSTNGI 


1204 

BO 

06Cb 

R 


JSR 

COMPAH 


1207 

22 

Ob 



BHI 

S0RT4 

NEED SWITCH 

1209 

FE 

1303 

R 


LDX 

CXS2 


I20C 

20 

BO 



BRA 

S0RT2 


I20E 

FE 

1303 

R 

S0RT4 

LOX 

CXS2 

NEW CBLOCK PTRS 

I2EI 

FF 

1301 

R 


STX 

CBLOCK 

I2E4 

C6 

FF 



LOA 

B #$FF 


I2E6 

F7 

130b 

R 


STA 

B SORTF 

SET SORT FLAG 

I2E9 

20 

BO 



BRA 

S0RT2 

12 Ed 

BO 

0C2A 

R 

SORTS 

JSR 

LINCK 


I2EE 

C6 

06 



LOA 

B #6 


I2F0 

FE 

1301 

R 

if 

LOX 

CBLOCK 


I2F3 

Ao 

00 


ENDP4 

LOA 

A O.X 

GET CHAR 

I2PS 

BO 

1886 

R 


JSR 

OUTCHR 

PRINT 

l2Fb 

08 




INX 


POINT TO NEXT CHAR 

I2F9 

bA 

F7 



DEC 

B 

DECREMENT COUNT 

12 FA 

26 


if 

BNE 

EN0P4 

NOT DONE 

I2FC 

86 

20 



LOA 

A #S20 

PRINT BLANK 

I2FE 

BD 

1 888 

R 


JSR 

OUTCHR 

1301 

BO 

1871 

R 


JSR 

0UT4HS 

PRINT 4 HEX LOCATION 

1304 

FF 

1306 

R 


STX 

ENOXS 

130/ 

E6 

00 



LOA 

B O.X 


1309 

Cb 

40 



BIT 

B #$40 

RELOC ? 

I30B 

27 

Ob 


if 

BEQ 

*+7 

NO 

1300 

86 

52 



LOA 

A #$b2 

LOAD "R" 

1 30 F 

BO 

1888 

R 

it 

JSR 

OUTCHR 

PRINT IT 

1312 

Cb 

20 



BIT 

B #$20 

MACRO NAME? 

1314 

2/ 

Ob 



BEQ 

*+7 

NO 

1316 

86 

40 



LOA 

A #'M 

LOAD M 



131b BD I8db R 


JSR OUTCHR 


PRINT IT 


* 


I31B C5 10 


BIT B #$10 

COMMON? 

1310 2/ 05 


BEQ *+7 

NO 

1 31F 86 43 


LDA A #'C 


1321 BO 1888 

R 

JSR OUTCHR 


1324 CB 08 

* 

BI T b #$08 

EXTERNAL? 

1326 27 Os 


BEQ *+7 

NO 

l32o 80 58 


LOA A rf'X 


132A BO 1888 

li 

JSR OUTCHR 


1320 C5 04 


BIT B #S04 

ENTRY? 

132r 21 05 


BEQ *+7 


1331 86 4E 


LOA A #'N 


1333 BO 1888 

R 

JSR OUTCHR 


1336 E6 00 


LDA B O.X 

REDEFINED? 

1338 2A 06 


BPL EIIOP’3 

NO 

I33A CE I38A 

R 

LDX MREOEF 

PRINT ERROR MESSAGE 

1330 BO luol 

R 

JSR PDATAI 


1340 FE 1306 

k EN0P5 

LUX ENUXS 


1343 CO FF 


LDA B #SFF 

SET DONE 

134s E7 00 


STA B O.X 


1347 BO 13BE 

R 

JSR CRLF 


134A 7E 1280 

R 

it 

JMP SORTI 


134D BD 13BE 

it 

R EN0P6 

JSR CRLF 


1350 BO 13BE 

R 

JSR CRLF 


I3_>3 CE I3AI 

R 

LOX #ENDMB 

PRINT # OF ERRORS MSG 

1 3s6 Bo 0288 

R 

LOA A ECOUNT 


I3j9 F6 0289 

R 

LOA B ECOUNT*1 


13sC BJ 005C 

R 

JSR CVBTO 

CONVERT TO ASCII 

135F CE 139s 

R 

LDX #ENOMA 


1 Jo2 BO 1861 

H 

JSR P0ATA1 

PRINT IT 

1365 BD I3BE 

R 

JSR CRLF 


1368 BO I3BE 

R 

JSR CRLF 


I36B CE I3AE 

R 

LDX #CMSG 

COMMON AREA MESSAGE 

I36E BJ 1861 

R 

JSR POATAI 


1371 CE 0313 

R 

LDX #GMNLC 

POINT TO COMMON LENGTH 

13/4 BO 1871 

R 

JSR 0UT4HS 


13 77 BO I30E 

R 

JSR CRLF 


137A B6 026E 

H 

LOA A OPTNS 


13/0 85 40 


BIT A #$40 

OBJECT? 

I37F 26 06 


BNE EN0P7 

NO 


i * 

13«I Bl) 0259 H ENDP6A JSR rtREOF WRITE EOF NULLS 

1334 7E 0240 R JMP UPDATE CLOSE FILE ANU EXIT TO MONTOR 

* 

13d/ IE 02b0 R ENDP7 JMP MONTOR 

★ 

133A 20 REDEF FCC ' REDEFINED' 

13 94 04 FCB $04 EOT 

* 

|39s 54 ENUMA FCC 'THERE HERE* ' 

13AI 0005 ENDM13 RMB 5 

)3Ao 20 FCC ' ERRORS' 

I3A0 04 FCB 4 

★ 

13AE 43 CMSCJ FCC 'COMMON LENGTH- ' 

13 BL) 04 FCB 4 

* 

★ 

I3BE CE I3C5 R CRLF LDX #MCRLF 

I3C1 BJ 1861 R JSR PLATA I 

13C4 39 RTS 

* 

* 

I3C5 OJOA MCRLF FOB $0U0A CR,LF 

I3C7 04 FCB $04 EOT 

★ 

I3C8 5B ZZZ FCC '[(Utt' 

I3CE 0000 FOB 0000 

1300 00 FCB 0 

13DI 0002 CBLOCK RMB 2 

13L)3 0002 CXS2 RMB 2 

1305 0001 SORTF RMB I 

1306 0002 ENDXS RMB 2 

* POENTs PROCESS "ENTRY" PSEU0OP 

* OEFINES AN ENTRY POINT FOP 

* R.LLREhCE 3Y OTHER’ MODULES. 

* 

13J.S BO I0.N9 R POciTT JSR ADR I NT INIT 
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13Ub 

BJ 

11> 1 A 

1) 

JSR 

LBLCK 

CHECK FOR A LABEL 

I3I)E 

BO 

0oF6 

R 

JS'I 

NXTOK 

GET ENTRY NAME 

13EI 

Cl 

01 


CMP 

B #1 

OKV 

1 3b 3 

27 

OB 


BEO 

POENTI 

YES 

l3Eb 

CE 

0216 


LDX 

#$0216 

NO, ERROR 

1 31:6 

BO 

00 ,ib 

li 

JSR 

PRI Nib 


13EU 

20 

3V 


BRA 

P0ENT3 


I3ED 

70 

027b 

II POENTI 

TST 

PASS 

PASS'/ 

1 3F0 

27 

43 


BEQ 

POENA4 

PASS 1 

I3F2 

BO 

0Bd7 

R 

JSR 

LKPSYM 

GET ENTRY ADDRESS 

1 3Fb 

Cl 

FF 


CMP 

B #$FF 

IN SYMYAB? 

I3F7 

26 

OB 


BNE 

POENA2 

YES 

I3F9 

CE 

0211 


-LDX 

#$0211 

NO,ERROR 

1 3FC 

BO 

OubB 

R 

JSR 

PRIN IE 


I3FF 

20 

2d 


BRA 

POENA 3 


1401 

FF 

OC 60 

R P0EN1'2 

1 SIX 

ADF1I 

SAVE ENTRY ADDRESS 

1404 

Ft 

02B2 

R 

LUX 

SYMPTR 

POINT TO ENTRY 

1407 

A6 

08 


LUA 

A B,X 

GET INFO BYTE 

MOV 

dA 

04 


ORA 

A #S04 

TURN ON ENT BIT 

MOb 

A/ 

03 


STA 

A a,x 


1 40u 

BO 

I43B 

R 

JSR 

PBLOCK 

OUTPUT LABEL 

MIO 

F6 

0C6B 

R 

LDA 

B ADRI 

OUTPUT ENTRY ADDRESS 

M 1 3 

BO 

1B2E 

R 

JSR 

OUTBIN 


1416 

F6 

0C6V 

R 

LDA 

B ADR2 


I4IV 

BO 

IB2h 

R 

JSR 

OUABIN 


MIC 

C6 

b2 


LDA 

B #'R 

“RELOCATABLE" 

M 11 

BO 

1842 

R 

JSR 

OUIBNR 


1421 

C6 

4t 


LDA 

a #'N 

“ENT" 

M23 

BO 

1842 

R 

JSR 

OUABNR 


1426 

73 

0C66 

R P0ENT3 

1 COM 

POP 


142V 

73 

027A 

R 

COM 

ENTFLG 


I42C 

7C 

0C6b 

II 

INC 

MCOUNT 


142b 

7C 

0C6b 

R 

INC 

MCOUNT 


1432 

BU 

OCOE 

R 

JSR 

PR I NIL 


143b 

7E 

04 VO 

R P0ENT4 

* 

JMP 

MAINI 

ALL DONE 




★ 

* PBLOCKi ROUTINE TO 

WRITE LOADER ENTRY SYMBOL 

143b 

FE 

0232 

H PBLOCK 

LDX 

SYMPAR 

PT TO ENTRY SYMBOL 

143b 

b6 

06 


LDA 

A #6 

LENGTH 

1 430 

E6 

00 

PBLK2 

LDA 

B 0,X 

GET A CHAR 

I43F 

36 



PSH 

A 


1 440 

FF 

I44F 

II 

SIX 

PBXS 


1443 

BO 

I32E 

R 

JSR 

OUTBIN 


1446 

32 



PUL 

A 


1447 

FE 

I44F 

R 

LUX 

PBXS 


I44A 

03 



INX 



144b 

4A 



DEC 

A 

ALL DONE? 

I44C 

26 

EF 


BNE 

PBLK2 

NO 

144b 

3V 



RTS 



I44F 

0002 

PBXS 

RMB 

2 





* POEQU* PROCESS EQII 

PSEUDOP 

1 4b 1 

bO 

103 V 

R POEOU 

JSR 

ADR I NT 

INIY ADDRESS FIELD FLAGS 

1 4'j4 

FE 

0232 

II 

LUX 

SYMPAR 


1 4b 7 

FF 

MAD 

II 

SIX 

EQUXS 

SAVE SYMPTR 

MbA 

70 

02/6 

II 

1ST 

Lbl-LG 

LABEL? 

MjD 

26 

Go 


BNE 

EQUB 

YES 

14-jF 

CE 

0213 


LDX 

#$0213 

NO, ERROR 

1402 

BO 

00 bb 

R EQUA 

JSR 

PR IN YE 

PRINT ERROR 

1 46b 

20 

40 


BRA 

EQUE 


M6/ 

BO 

06F6 

II EQUB 

JSR 

NXTOK 

GET NEXT TOKEN 

1 4oA 

Cl 

OU 


CMP I 

3 #$0D 

EOL? 

I46C 

26 

Ob 


BNE 

EQUC 

NO 

1 4oE 

CE 

0216 


LDX 

#$0216 

ERROR 

M/I 

20 

EF 


BRA 

EOUA 


1473 

BO 

OVBb 

R EOUC 

JSR 

NSEVL 

EVALUATE OPERAND 

M/6 

Cl 

FF 


CMP 1 

3 #$PF 

ERRORS? 

M7b 

2/ 

Eb 


BEQ 

EQUA 

YES 

I47A 

/O ' 

027b 

R 

1ST 

PASS 

PASS? 

I47U 

26 

IF 


BNE 

EQUD 

PASS2 

I47F 

FE 

I4AU 

R 

LDX 

EQUXS 


I4b2 

A6 

08 


LDA / 

>1 8,X 

GET INFO BYTE 

1 434 

70 

02 77 

R 

1ST 

RELFLG 

SELOC ? 

I4b7 

26 

09 


BNE 

EOUF 

YES 
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14d9 

04 

BE 


* 

AND 

A 

#$BF 

NO, TURN OFF IN INFO BYTE 

14db 

/ U 

027B 

R 


TST 


CMNFLG 

COMMON? 

1 4BE 

27 

02 



BEQ 


EQUF 

NO 

1490 

OA 

10 



ORA 

A 

#S 10 

YES TURN ON IN INFO BYTE 

1492 

A/ 

08 


EQUF 

STA 

A 

B.X 


1494 

BA 

0C69 

R 


LDA 

A 

ADR2 

STORE VALUE 

1497 

A 7 

07 



STA 

A 

7.X 


1499 

B6 

0C68 

R 


LDA 

A 

ADR 1 


I49C 

A7 

06 



STA 

A 

6,X 


1 49E 

73 

0C66 

R 

EQUO 

COM 


POP 

SET PSEUDOP FLAG 

I4AI 

7C 

0C6b 

R 


INC 


M COUNT 

MCOUNTI=2 

I4A4 

7C 

0C6b 

R 


INC 


MCOUNT 


I4A7 

BD 

OCOE 

R 

EQUE 

JSR 


PRINTL 

PRINT A LINE OF LISTING 

14 AA 

7E 

0490 

R 


JMP 


MAIN 1 

RETURN TO MAIN L(X)P 

14AU 

0002 


EQUXS 

RMB 


2 

SAVE AREA 


* POEXH PROCESS "EXTERNAL" PSEUOOP 

* MAKt EXYERNALLY-OEFINEO SUBROUTINE 

* AVAILABLE ft) MODULE 

* 


1 4 At* 

BD 

1 0o9 

R 

POEXT 

JSR 

ADRINT 

I NIT 

I4B2 

BD 

lb 1 A 

R 


JSR 

LBLCK 

CHECK FOR A LABEL 

MBb 

BD 

06F6 

R 


JSR 

NXTOK 

OFT EXTERNAL ENTRY NAME 

UBo 

Cl 

01 



CMP 

B #1 

OK? 

14 6A 

27 

Ob 



BEQ 

POEXTI 

YES 

I4BC 

CE 

0216 



LOX 

#$0216 

NO, ERROR 

I4BF 

BD 

ODBB 

R 


JSR 

PRINYE 


I4C2 

BD 

OCOE 

R 


JSR 

PRINTL 


I4CB 

20 

47 



BRA 

P0EXT4 


1407 

7C 

0234 

R 

POEXTI 

INC 

LCN 


I4CA 

7C 

0234 

R 


INC 

LCN 


14 CD 

7C 

0234 

R 


INC 

LCN 


14 DO 

70 

027b 

R 


TST 

PASS 

PASS? 

1403 

26 

OE 



BNE 

P0EXT2 

PASS 2 

140b 

BD 

O/FB 

R 


JSR 

STOSYM 

PUT NAME IN SYMBOL TABLE 

1 4J6 

FE 

02 d2 

R 


LOX 

SYMPTR 


uub 

A6 

OB 



LDA 

A 8.X 


14u0 

8A 

08 



ORA 

A #$08 

SET EXT BIT 

I40F 

A/ 

OB 



STA 

A 8.X 


14EI 

20 

20 



BRA 

P0EXT3 


I4E3 

C6 

7E 


POEX12 

LDA 

B #$7E 

"JMP” 

l4Eb 

F7 

0C67 

R 


STA 

B OPCD 


1 4Eo 

BD 

I32E 

R 


JSR 

OUTBIN 


I4EB 

BO 

08b 7 

R 


JSR 

LKPSYM 

SET UP ENTRY NAME 

14 EE 

BO 

I43B 

R 


JSR 

PBLOCK 

OUTPUT NAME 

I4FI 

C6 

58 



LOA 

b #'X 

“EXT" 

I4E3 

BO 

1842 

R 


JSR 

OUTBNR 


I4F6 

7F 

0C68 

R 


CLR 

A0R1 


I4F9 

7F 

0C69 

H 


CLR 

ADR2 


MFC 

1C 

0C6b 

R 


INC 

MCOUNT 


I4FF 

1C 

0C6b 

H 


INC 

MCOUNT 


Ib02 

7C 

0C6b 

R 


INC 

MCOUNT 


lb Ob 

73 

0279 

R 


COM 

EXTFLG 


1608 

BO 

OCOE 

R 


JSR 

PRINTL 


1 DOb 

BO 

1IC2 

R 

P0EXT3 

JSR 

LCLCN 


IbOE 

/ E 

0490 

R 

P0EXT4 

JMP 

MAIN! 

ALL DONE 





* PO FCB 1 PROCESS FCB PSEUOOP 

lb 1 1 

BO 

1039 

R 

x 

POFCB 

JSR 

ADRINT 

INIT ADDRESS FIELD FLAGS 

lb 14 

BO 

06F6 

R 


JSR 

NXTOK 

GET NEXT TOKEN 

lb 17 

Cl 

00 



CMP 

B #$00 

EOL? 

1 b 19 

26 

08 



BNE 

FCBB 

NO 

lb 1 B 

CE 

0216 


FCBA 

LOX 

#$0216 

E RROR 

IblE 

BO 

ODBB 

H 


JSR 

PRINTE 

PRINT 

1 b21 

20 

IA 



BRA 

FCBC 

FINISH UP 

Ib23 

BO 

09Bb 

R 

★ 

FCBB 

JSR 

NSEVL 

EVALUATE OPERAND 

Ib26 

BO 

1007 

R 


JSR 

P2ERR 

PRINT PASS ERRORS 

Ib29 

7C 

0284 

R 


INC 

LCN 

LCNi=l 

lb2C 

70 

027b 

R 


TST 

PASS 

PASS? 

Id2F 

27 

OF 



BEQ 

FCBO 

PASSI 

Ib3l 

F6 

0C69 

R 


LDA 

B ADR 2 

PASS2, OUTPUT MC 

Ib34 

BO 

102E 

H 


JSR 

OUTBIN 


lb 37 

7C 

0C6b 

R 


INC 

MCOUNT 

MCObNT«=l 

lb3A 

7C 

0C66 

R 


INC 

POP 

POPl = 1 

lb3D 

BO 

OCOE 

R 

FCBC 

JSR 

PRINTL 

PRINT A LINE OF LISTING 
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1S40 

BU 

IIC2 

R 

FCBO 

JSR 


LCLCN 

LC« =LC+LCN 

IS 43 

7E 

0490 

R 


JMP 


MAIN 1 

RETURN TO MAIN LOOP 





★ POFCCt PROCESS FCC 

PSEUDOP 

1346 

BO 

1089 

R 

POFCC 

JSR 


ADRI NT 

INIT ADDRESS FIELD FLAGS 

1349 

BO 

06F6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

1S4C 

Cl 

2/ 



CMP 

B 

#$27 

QUOTE 7 

IS4E 

27 

08 



BEQ 


FCCB 

YES 

I5SO 

CE 

0204 


FCCA 

LOX 


#$0204 

ERROR 

1 333 

BO 

OoBB 

H 


JSR 


PRINTE 

PRINT 

1530 

20 

3C 



BRA 


FCCG 

FINISH UP 

15sb 

FE 

02 7E 

R 

FCCB 

LOX 


CUCHAR 

GET CURRENT CHAR 

153b 

E6 

00 



LDA 

B 

O.X 


1 53L) 

Cl 

00 



CMP 

B 

#$00 

EOL ? 

ISoP 

2/ 

EF 



BEO 


FCCA 

YES 

1561 

F7 

0C69 

R 


STA 

B 

A0R2 

NO,SAVE CHAR 

1564 

70 

0275 

R 

FCCC 

1ST 


PASS 

PASS ? 

1567 

2/ 

03 



BEQ 


FCCD 

PASSI 

1369 

BO 

I82E 

R 


JSR 


OUTBIN 

OUTPUT MC 

I56C 

FE 

02 7E 

R 

FCCO 

LOX 


CUCHAR 

CUCHARi=CUCHAR+l 

I56F 

08 




INX 




1570 

FF 

027E 

R 


SIX 


CUCHAR 


1573 

7C 

0284 

R 


INC 


LCN 

LCNi=LCN+l 

13 76 

E6 

00 



LOA 

B 

O.X 

GET CHAR 

157b 

Cl 

27 



CMP 

B 

#$27 

QUOTE? 

I57A 

27 

06 



BEQ 


FCCE 

YES 

13/C 

Cl 

00 



CMP 

B 

#$00 

EOL? 

I57E 

26 

E4 



BNE 


FCCC 

NO 

1360 

20 

OC 


jg 

BRA 


FCCF 

YES 

1582 

to 

01 


FCCE 

LOA 

B 

1 .X 

GET NEXT CHAR 

1384 

Cl 

27 



CMP 

B 

#$27 

TWO QUOTES ? 

1360 

26 

06 



BNE 


FCCF 

NO 

1388 

08 




INX 




1389 

FF 

027E 

R 


STX 


CUCHAR 

CUCHARi «CUCHAR#I 

I56C 

20 

06 



BRA 


FCCC 


IbbE 

7C 

0C66 

R 

FCCF 

INC 

• 

POP 

POP«=l 

1591 

7C 

0C65 

R 

fg 

INC 


MCOUNT 

MCOUNTi=l 

1594 

BO 

OCOE 

R 

FOCG 

JSR 


PRINTL 

PRINT LINE OF LISTING 

159/ 

BD 

1IC2 

R 


JSR 


LCLCN 

LC»=LC+LCN 

I39A 

7E 

0490 

R 


JMP 


MAIN 1 

RETURN TO MAIN LOOP 


* POFDBi PROCESS FDii PSEUUOP 

* 


1390 

BO 

1089 

R 

POFoB 

JSR 


AORI NT 

INIT ADDRESS FIELD FLAGS 

13 AO 

BO 

06 F 6 

R 


JSR 


NXTOK 

GET NEXT TOKEN 

I3A3 

Cl 

00 



CMP 

B 

#$0D 

EOL? 

13 A3 

26 

08 



BNE 


FOBB 

NO 

I3A7 

CE 

0216 


FOBA 

LOX 


#$0216 

E RHOR 

I5AA 

BD 

OOBB 

R 


JSR 


PRINTE 

PRINT 

15 AO 

20 

39 



BRA 


FOBC 

FINISH UP 

I5AF 

BD 

09B5 

R 

FOBB 

JSR 


NSEVL 

EVALUATE OPERAND 

I3B2 

BO 

1007 

H 


JSR 


P2ERR 

PRINT PASS 2 ERRORS 

I3B3 

7C 

0234 

R 


INC 


LCN 

LCN1=2 

13 88 

7C 

0284 

R 


INC 


LCN 


I5BB 

70 

02/5 

R 


1ST 


PASS 

PASS? 

I5BE 

27 

2B 



BEQ 


FDBO 

PASSI 

15 CO 

F6 

0C68 

R 


LOA 

B 

ADRI 

OUTPUT MC 

I5C3 

BO 

I82E 

R 


JSR 


OUTBIN 

I5C6 

F6 

0C69 

R 


LDA 

B 

A0R2 


13C9 

BO 

I82E 

R 


JSR 


OUTBIN 


I5CC 

70 

0277 

R 


VST 


RE LF LG 

RELOC ? 

I3CF 

27 

04 



BEQ 


FDCF 

NO 

1501 

C6 

52 



LOA 

B 

# / R 

YES 

1303 

20 

07 



BRA 

FDCG 


I5D5 

70 

0278 

R 

it 

FOCF 

TST 

CMNFLG 

COMMON? 

1508 

27 

05 



BEQ 

FDCE 

NO 

13UA 

C6 

40 



LOA 

B 

#'M 

YES 

I3DC 

BO 

1842 

R- 

FDCG 

JSR 


OUTBNR 

OUTPUT "R" OR “M" 

I50F 

7C 

0C65 

R 

FOCE 

INC 


MCOUNT 

MCOUNT!=2 

I5E2 

7C 

0C65 

R 


INC 


MCOUNT 


I3E5 

73 

0C66 

R 

£ 

COM 


POP 

POPi = FF 

I5E8 

BO 

OCOE 

R 

FOBC 

JSR 


PRINTL 

PRINT A LINS OF LISTING 

ISEb 

BO 

IIC2 

R 

FOBO 

JSR 


LCLCN 

LCi=LC+LCN 

15 EE 

7E 

0490 

R 


JMP 


MAINI 

RETURN TO MAIN LOOP 


* PROCESS THE IF PSEUDOP 

* 


130 



IbFI 

BO 

1089 

R FOIF 

JSR 

AORINT 


I3F4 

BO 

181 A 

R 

JSR 

LBLCK 


IdF7 

Bu 

06F6 

R 

JSR 

NXTOK 


IbFA 

Cl 

00 


CMP 

B #$0J 

EOL? 

I5FC 

26 

08 


BNE 

P01 FB 

NO 

IbFE 

CE 

0216 

POIFA 

LUX 

#$021 6 


1601 

BO 

00 BB 

R 

JSR 

PRINTE 


1604 

20 

23 


BRA 

POIFE 


1606 

BO 

09 Bb 

R ROIFB 

JSR 

NSEVL 

EVALUATE OPERAND 

1609 

Cl 

FF 


CMP 

B #SFF 

ERRORS? 

I60B 

27 

FI 


BEQ 

POIFA 

YES 

1600 

BO 

I76A 

R 

JSR 

PSHIF 

STACK PRESENT IFFLG 

1610 

70 

0377 

R 

TST 

IFF LG 

ASSEMBLING? 

1613 

27 

14 


BEQ 

POIFE 

NO 

161b 

70 

0C68 

R 

TST 

AORI 

=0? 

t 616 

26 

OA 


BNE 

POIFC 

NO 

1 61A 

70 

0C69 

R 

TST 

ADR2 

=0? 

1610 

26 

Ob 


BNE 

POIFC 

NO 

161F 

7F 

0377 

It 

R 

CLR 

IFFLG 

TURN OFF ASSEMBLING 

1622 

20 

Ob 


BRA 

POIFE 


I 624 

86 

FF 

POlFC 

LDA 

A #$FF 

TURN ON ASSEMBLING 

1626 

B7 

0377 

R 

STA 

A IFFLG 


1629 

BO 

OCOE 

R POIFE 

JSR 

PRINTL 


I62C 

7E 

0490 

R 

JMP 

MAIN! 





* PROCESS THE MAC PSEUDOP 

I62F 

0001 

CMFLG 

RMB 

1 COMMENT FLAG 0=NO,FF=YES 

1630 

0001 

MACERH 

RMB 

1 MAC ERROR 0=N0,FF=YES 

1631 

BO 

1089 

R POMAC 

JSR 

ADRI NT 

INIT FLAGS 

1634 

BO 

OCOE 

R 

JSR 

PRINTL 


163/ 

7F 

I62F 

R 

CLR 

CMFLG 


I63A 

7F 

1630 

H 

CLR 

MACERR 


1630 

70 

0273 

R 

TST 

PASS 

PASS? 

1640 

26 

30 


BNE 

P0.MAC2 

PASS2 

1642 

70 

02/6 

R 

TST 

LBFLG 

LABELED? 

164b 

26 

OB 


BNE 

POMAC1 

YES,OK 

1 647 

73 

1630 

R 

COM 

MACERR 

SET-ERROR FLAG 

I64A 

CE 

0226 


LOX 

#$0226 

E RROR 

1640 

BD 

OOBB 

R 

JSR 

PRINTE 


16b0 

20 

20 


BRA 

P0MAC2 


1632 

FE 

0282 

R POMAC1 

LOX 

SYMPTR 

PT TO LABEL 

1 ®b 

86 

20 


LUA 

A #$20 


1637 

A / 

08 


STA 

A 8.X 

SET MACRO FLAG IN SYMTAB 

16b9 

B6 

0300 

R 

LUA 

A MACPTR 


1 6bC 

A7 

06 


STA 

A 6,X 

SAVE MACRO LOC 

I63E 

B6 

030E 

R 

LUA 

A MACPTR# 1 


1661 

A7 

07 


STA 

A 7 ,X 


1663 

BO 

06F6 

R 

JSR 

NXTOK 

CHECK FUR "C“ 

1666 

FE 

02 78 

R 

LOX 

DESCRA 


1669 

A6 

00 


LDA 

A 0,X 


166b 

81 

43 


CMP 

A #'C 

“C"? 

1660 

26 

03 


BNE 

*+b 

NO 

I66F 

73 

1 62 F 

R 

COM 

CMFLG 

YES,SAVE COMMENTS 

1672 

BO 

0376 

R P0MAC2 

JSR 

RDLINA 

GET NEXT LINE 

167b 

FE 

026F 

R 

LOX 

LNUM 


167b 

08 



INX 



1679 

FF 

026F 

R 

STX 

LNUM 


16/C 

BO 

OCOE 

R 

JSR 

PRINTL 


1 6/F 

FE 

0280 

R 

LOX 

CULINE 

PT TO LINE 

16b2 

A6 

00 


LOA 

A 0,X 

GET FIRST CHAR 

I6b4 

81 

2A 


CMP 

A #'* 

COMMENT? 

1666 

26 

OA 


BNE 

P0MAC5 

NO 

168b 

70 

1 62F 

R 

TST 

CMFLG 

SAVE COMMENTS? 

1 6bb 

27 

Eb 


BEQ 

P0MAC2 

NO 

1680 

BO 

I6E6 

R 

JSR 

MACMOV 

YES, SAVE 

1690 

20 

EO 


BRA 

P0MAC2 


1692 

7F 

0276 

R P0MAC5 

i CLR 

LBFLG 

CLEAR LABEL FLAG 

1693 

FE 

0280 

R 

LOX 

CULINE 

PT TO LINE 

1698 

A6 

00 


LOA 

A 0,X 

GET CHAR 

169 A 

31 

20 


CMP 

A #$20 

BLANK? 

I69C 

27 

06 


BEQ 

P0MAC6 

YES 

I69E 

BO 06F6 

R 

JSR 

NXTOK 

GET LABEL 



I6AI 

73 

0276 

R 

if 

COM 

LBFLG 

SET LABEL FLAG 

I6A4 

Bl) 

0oF6 

R F0MAC6 

JSR 

NXTOK 

GET MNEMONIC 

1 6A7 

86 

04 


LDA 

A #4 

SET FOR COMPARE 

16A9 

B7 

07 E7 

R 

STA 

A PCOUNT 


1 6AC 

FE 

027B 

R 

LOX 

DESCRA 


I6AF 

FF 

07E3 

R 

STX 

PSTN 01 


1 6132 

CE 

1722 

R 

LDX 

#MEND 


1 6bb 

FF 

07E5 

R 

SIX 

PSTNG2 


I6BB 

CE 

07E3 

R 

LDX 

#PSTNGI 

POINT TO PARMS 

1 6Bd 

BO 

06Cb 

R 

JSR 

COMPAR 

COMPARE 

I6BE 

26 

00 

if 

BNE 

POMACB 

MEND NOT FOUND 

I6C0 

70 

0276 

R 

1ST 

LBFLG 

LABELED? 

I6C3 

27 

OE 

if 

BEQ 

P0MAC7 

YES 

l6Cb 

CE 

0227 


LOX 

#S0227 

ERROR 

16Cb 

BO 

00 BB 

R 

JSR 

PRINTE 


16CB 

20 

06 


BRA 

P0MAC7 


I6CU 

BD 

I6E6 

R P0MAC8 

JSR 

MACMOV 

PUT INTO MACTBL 

1600 

7E 

1672 

R 

JMP 

P0MAC2 


I6D3 

70 

027b 

R P0MAC7 

tst 

PASS 

PASS? 

I6D6 

26 

08 

if 

BNE 

POMACA 

PASS2 

l6Db 

86 

17 


LOA 

A #$17 

ETB TO END OF MACRO 

I6DA 

FE 

0300 

R 

LDX 

MACPTR 


I6DD 

A7 

00 


STA 

A 0,X 


16DF 

08 



INX 



I6H0 

FF 

0300 

R 

STX 

MACPTR 


I6E3 

7E 

0490 

R POMACA 

JMP 

MA1NI 

ALL DONE 




* MOVE 

MACRO TO MACTBL 

1 6E6 

70 

027b 

R MACMOV 

TST 

PASS 

PASS? 

I6E9 

26 

36 


BNE 

MACMVE 

PASS2 

I6EB 

70 

1630 

R 

TST 

MACERR 

ERROR? 

16EE 

26 

31 


BNE 

MACMVE 

YES 

I6F0 

FE 

0280 

R 

LOX 

CULINE 


I6F3 

FF 

027E 

R 

if 

STX 

CUCHAR 


I6F0 

FE 

02 7E 

R MACLOP 

LDX 

CUCHAR 

GET CHAR FOM INBUF 

I6F9 

A6 

00 


LOA 

A 0,X 


I6FB 

08 



INX 



I6FC 

FF 

027E 

R 

STX 

CUCHAR 


I6FF 

FE 

030D 

R 

LDX 

MACPTR 

POINT TO MACTBL 

1702 

BC 

0264 

R 

CPX 

MACEND 

FULL? 

170b 

26 

10 


BNE 

MACMV1 

NO 

1707 

86 

00 


LDA 

A #$0D 

CR TO MACTBL 

1709 

A7 

00 


STA 

A 0,X 


170b 

08 



INX 



I70C 

FF 

0300 

R 

STX 

MACPTR 


I70F 

CE 

022 a 


LDX 

#$0228 

ERROR 

1712 

BO 

ODBB 

R 

JSR 

PRINTE 


17 1 b 

20 

OA 


BRA 

MACMVE 


1717 

A7 

00 

★ 

MACMV1 

STA 

A 0,X 

STORE CHAR IN MACTBL 

1719 

08 



INX 



17 1A 

FF 

0300 

U 

STX 

MACPTR 


1 71U 

bl 

OD 


CMP 

A #$00 

EOL? 

17 IF 

26 

Db 

if 

BNE 

MACLOP 

NO 

1721 

39 


MACMVE 

RTS 


ALL DONE 

1722 

40 


MEND 

FCC 

'MEND' 





* PONAMI PROCESS NAM 

* 

PSEUDOP 

1726 

BO 

1089 

R PONAM 

JSR 

ADRINT 


1729 

BO 

1 Bl A 

R 

JSR 

LBLCK 


I72C 

BD 

06F6 

R 

JSR 

NXTOK 

GET PROGRAM NAME 

I72F 

Cl 

01 


CMP 

B #1 

OK ? 

1731 

27 

09 

if 

BEQ 

PONAM1 

YES 

1733 

CE 

0216 


LOX 

#$0216 

ERROR 

1736 

BD 

ODBB 

R 

JSR 

PRINTE 


1739 

7E 

1426 

R 

JMP 

P0ENT3 


I73C 

70 

0275 

R PONAM1 

TST 

PASS 

PASS? 

I73F 

26 

06 


BNE 

P0NAM2 

PASS 2 

1741 

BO 

07F8 

R 

JSR 

STOSYM 

SAVE NAME IN SYMTAB 

1744 

7E 

I3E0 

R 

JMP 

POENTI 


1747 

F6 

0313 

R P0NAM2 

LOA 

B CMNLC 

OUTPUT COMMON BLOCK SIZE 

I74A 

BD 

I82E 

R 

JSR 

OUTBIN 




I74U F6 0314 R 
1750 BO I82E R 

1753 C6 50 
1755 BD 1842 R 

1758 7E I3EU R 


LDA B CMNLC+I 
JSR OUTBIN 

LDA B #'P “PROGRAM" 

JSR OUTBNR 

JMP POENTI PROCESS AS ENTRY NAME 


* PON IF I PROCESS NIF PSEUOOP 


★ 


175b 

BO 

108 V 

R 

PON IF 

JSR A DR I NT 


I75E 

80 

181A 

R 


JSR L8LCK 


1761 

BO 

1 /7E 

R 

'4JSR PULIF 

GET LAST IFFLG 

1764 

BO 

OCOE 

R 


JSRI-PRIN1L 


176/ 

7E 

04V0 

R 

* 

JMP MAIN! 






* 

* PSHIF* PUSH THE CURR-ENf IFF LG ONTO THE IFSTACK 

I76A 

BF 

028C 

R 

X 

PSHIF 

STS STKSAV 

SAVE STACK POINTER 

1760 

FE 

03 75 

R 


LDX 6IFSTK 

LOAD IF STACK POINTER 

1 770 

8C 

0360 

R 


CPX #IFSTK-8 

FULL? 

1773 

27 

ID 



BEQ PSPLER 

YES 

1 775 

BE 

0375 

R 

★ 

LDS 0IFSTK 

LOAD STACK POINTER 

1778 

86 

0377 

R 


LDA A IFFLG 


I77B 

36 




PSH A 

STACK IFFLG 

17/C 

20 

IB 



BRA PSPLCM 






* PULIF» PULL LAST 

IFFLG OFF OF THE IFSTACK 

1 77 E 

BF 

028C 

R 

X 

PULIF 

STS STKSAV 

SAVE STACK POINTER 

1781 

FE 

0375 

R 


LDX 0IFSTK 

LOAD IF STACK POINTER 

1784 

8C 

0375 

R 


CPX #IFSTK 

UNDERFLOW? 

I/d/ 

2/ 

ov 



BEQ PSPLER 

YES 

178V 

BE 

0375 

R 


LOS SIFSTK 

LOAD STACK POINTER 

I78C 

32 




PUL A 

POP LAST IFFLG 

1780 

B7 

03 77 

R 


STA A IFFLG 


1 /VO 

20 

07 



BRA FSPLCM 


I7V2 

CE 

0254 


PSPLER 

LDX #50254 


I7V5 

BO 

ODBB 

R 


JSR PRINTE 


1 /Vd 

3V 




RTS 


I7VV 

BF 

0375 

R 

PSPLCM 

STS SIFSTK 


I7VC 

BE 

02bC 

R 


LDS STKSAV 


I7VF 

3V 




RTS 



* POPAG» PROCESS PAG PSEUDOP 


1 7A0 

BO 

108 V 

R 

POPAG 

JSR 


ADRI NT 

IN IT FLAGS 

1 7 A3 

BO 

I8IA 

R 


JSR 


LBLCK 

CHECK FOR LABEL 

I7A6 

70 

0275 

R 


1ST 


PASS 

PASS ? 

1 7AV 

27 

13 



bEQ 


PAGEND 

PASS 1 

1 7Ab 

F6 

0287 

H 

it 

LDA 

8 

LCOUNT 

LC0UNT=0? 

1 7AE 

27 

OE 



BEQ 


PAGEND 

YES 

1780 

C6 

3C 


k 

LDA 

B 

#S3C 

81=60 

I7B2 

FO 

0287 

R 


SUB 

8 

LCOUNT 

Bi=60-LC0UNT 

1 7Bd 

BD 

I3BE 

R 

PAGEA 

JSR 

CRLF 


1 7B8 

5A 




DEC 

B 


TO 

1 78V 

26 

FA 



BNE 


PAGEA 

TOP OF PAGE 

17 BB 

7F 

0287 

R 


CLR 


LCOUNT 

LCOUNT»=0 

1 7 BE 

7E 

0490 

R 

PAGENO 

JMP 


MAIN! 

RETURN TO MAIN 


* POHMBI PROCESS RMU PSEUOOP 


* 


17 C1 

BJ 

I 08 y 

R 

POHMB 

JSR AORINF 

INIT ADURESS FIELD FLAGS 

I7C4 

80 

05F6 

H 


JSR NXTOK 

GET NEXl TOKEN 

I7C7 

Cl 

OU 



CMP 8 #S0D 

EOL? 

1 7CV 

26 

08 



BNE RMBB 

NO 

1 / CB 

CE 

0216 



LOX #50216 

E RROR 

I7CE 

80 

00 BB 


RMHA 

JSR PRINTE 

PRINT 

1701 

20 

18 



bRA RMBC 

FINISH ’IP 

1 /D3 

80 

0985 

R 

RMBB 

JSR NSEVL 

EVALUATE OPERAND 

1700 

Cl 

FF 



CMP 8 #$FF 

ERRORS? 

1 708 

2/ 

F4 



BEQ HMbA 

YES 

I7JA 

7U 

0275 

R 


TST PASS 

PASS? 

17 i/O 

27 

OF 



BEQ RMBO 

PA SSI 

17 OF 

BO 

1803 

R 

it 

JSR RMBOUT 

OUTPUT MC 

I7E2 

7C 

0C6b 

R 


INC MCOU N r 

MC0UNT»=2 

I7E5 

7C 

0C65 

R 


INC MCUUNT 


1 7E8 

73 

0C66 

R 


COM POP 

SET PSEUOOP FLAG 

1 7EB 

80 

OCOE 

R 

■k 

RMBC 

JSR -PRI NTL 

PRINT A LINE OF LISTING 

1 /EE 

86 

0274 

R 

RMBO 

LOA A LC+I 

LC*=LC+AOR1,ADR2 

171-1 

F6 

02/3 

R 


LDA B LC 


I7F4 

BB 

0C69 

H 


ADD A ADR2 



133 



1 VF7 

F9 

0C68 

R 


ADC 

B 

ADRI 


17 FA 

B7 

02 IA 

H 


STA 

A 

LC+I 


I7FD 

F7 

0273 

R 


STA 

B 

LC 


1800 

/ E 

0490 

R 

* 

JMP 


MAIN1 

RETURN TO MAIN LOOP 

1803 

bF 



* 

RMBOUT 

CLR 

B 


LOAD 00 

1 d04 

FE 

0C68 

R 


LDX 


ADRI 

LSAVE*=#BYTES FROM RMB 

1807 

FF 

0285 

R 


STX 


lsave 



★ 


IB4F 44 
1850 44 
IBbl 44 
I 852 84 OF 
1854 3B 30 
I856 Bl 39 
1888 23 02 
IBbA dB 07 
labC 39 


LSR A 
LSR A 
LSI! A 

OUTHR ANO A #$0F 
ADO A #$30 
CMP A #$39 
BLS *+4 
ADD A #50/ 
RTS 


180A 

BD 

I82E 

R 

RMBOTA 

JSR 

OUI'BIN 

OUTPUT MC 




* ASSORTED 

I/O ROt 

I60D 

FE 

028b 

R 


LDX 

LSAVE 





★ 



1810 

09 




DEX 



I8l>D 

BL) 

1 888 

R PDATA2 

JSR 

OUTCHR 

1811 

27 

06 



BEQ 

RMBOTB 

DONE 

I860 

08 



INX 






* 




1861 

Ao 

00 

pdatai 

LDA 

A 0,X 

1813 

FF 

02 db 

R 


STX 

LSAVE 


1863 

81 

04 


CMP 

A #4 

1816 

bF 




CLR B 



186a 

26 

F6 


BNE 

PDATA2 

1817 

20 

FI 



BRA 

RMBOTA 

DO AGAIN 

186/ 

39 


if 

RTS 


1819 

39 



RMBOTB 

RTS 


RETURN 

1 868 

A6 

00 

0UT2H 

LDA 

A 0,X 





* LBLCK* check for a 

AN ILLEGAL LABEL ON A 

1 d6A 

80 

OE 

0UT2HA 

BSR 

OUTHLL 





* 

PSEUDOP. IF 

THERE IS ONE DELETE IT. 

1 b6C 

A6 

00 


LuA 

A 0,X 





* 

AND 

PRINT AN ERROR MESSAGE. 

I86E 

08 



INX 






★ 




186 F 

20 

OD 


BRA 

OUTHRR 

I8IA 

7D 

0276 

R 

LBLCK 

TST 

LBFLG 

LABEL? 




★ 



IBID 

27 

OE 



BEQ 

LBLCK2 

NO 

18/1 

80 

Fb 

0UT4HS 

BSR 

0UT2H 





* 




1873 

80 

F3 

0UT2HS 

BSR 

0UT2H 

181 F 

7D 

0275 

R 


TST 

PASS 

PASS? 

18/b 

86 

20 

OUTS 

LDA 

A #$20 

1822 

26 

03 


* 

BNE 

LBLCK 1 

PASS2 

187/ 

IE 

1888 

R 

JMP 

OUTCHR 

1824 

BD 

08AB 

R 


JSR 

DELSYM 

PASSI DELETE LAST SYMBOL 

I87A 

44 


* 

OUTHLL 

LSR 

A 





* 




1878 

44 



LSR 

A 

182/ 

CE 

0223 


LBLCK1 

LDX 

#$0223 

ERROR 

1 8/C 

44 



LSR 

A 

182A 

BD 

ODBB 

R 

if 

JSR 

PRINTS 

PRINT 

I87D 

44 



LSR 

A 

1 820 

39 



LBLCK2 

RTS 


RETURN 

ld7E 

84 

OF 

* 

OUTHRR 

AND 

A #$OF 


* OUi'BIN* OUTPUT A BYTE AS T.VO HEX ASCII CHARACTERS 
J OUTBNR* OUTPUT “R», "N", OH "X" 


I8B0 da 30 
I dd2 81 39 
1884 23 02 


ADD 

CMP 


#$30 

#S39 


BLS OUTCHR 


IB2E 

B6 

026E 

R 

OUi’BIN 

LDA 

A OPENS 

1831 

8b 

40 



BIT 

A #$40 

1833 

26 

OC 


* 

BNE 

OUTRET 

183b 

17 




TBA 


1830 

80 

16 



BSR 

OUTHL 

1 838 

BD 

0256 

H 


JSR 

OUTB 

I83B 

1 / 




TBA 


183C 

80 

14 



BSR 

OUTHR 

I83E 

BD 

0256 

R 


JSR 

OUTB 

1841 

39 



OUTRE! 

★ 

RTS 


Ib42 

B6 

026E 

R 

★ 

OUTBNR 

LDA 

A OPENS 

184b 

db 

40 



BIT 

A #$40 

1847 

26 

Fd 



BNE 

OUTRET 

1849 

17 




TBA 


184A 

BD 

0256 

R 


JSR 

OUTB 

I84D 

39 



* 

RTS 


I84E 

44 



* 

OUTHL 

LSR 

A 


OUTPUT? 

NO 


CONVERT LEFT NIBBLE 


CONVERT RIGHT NIBBLE 


OUTPUT? 

NO 


* 


1886 

8B 

07 

* 

ADD 

A #$07 

1 888 

36 


OUTCHR 

PSH 

A 

1889 

BD 

038B 

R 

JSR 

OUTEEE 

1 8dC 

32 



PUL A 

1 88D 

81 

OA 


CMP 

A #$0A 

188F 

26 

0c 

* 

BNE 

OUTCHE 

1891 

36 



PSH 

A 

1892 

3/ 



PSH 

B 

1893 

C6 

08 

* 

LDA 

B #8 

1898 

86 

00 

OUTCHL 

LDA 

A #$00 

189/ 

BD 

0388 

H 

JSR 

OUTEEE 

IB9A 

5A 



DEC 

B 

1898 

26 

Fd 


BNE 

OUTCHL 

I89D 

33 



PUL 

B 

I89E 

32 



PUL 

A 

189F 

39 


OUTCHE 

RTS 






END 



134 



MIFSYK 

03 7b 

II 

AbR 

I0b4 

R 

AbRCK 

10137 

R 

AbRCKA 

IOCO 

R 

AJOI 6 

ObEC 

R 

A DU Ik 1 

OEOO 

R 

A DOR 1 A 

OEOA 

R 

A DDR IB 

0EI2 

H 

ADOR 1C 

0E3b 

R 

A OUR ID 

0E4C 

R 

AUDHIE 

0E6u 

R 

AiloRI F 

OE72 

R 

AOORIG 

Oh 7b 

R 

AJuRIH 

OEBB 

R 

AOUR 1J 

OEdb 

R 

AOURIX 

0E40 

R 

AUURIL 
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SI 131800C9BD0736C10D2608CE0216BU0DFB201832 
SI I 31810B009F5CIFF27F47002BB270FBDIB407C33 
SI 131820OCAS7C0CAS730CA6BU0C4EB6O2B4F60236 
SI I 31830B3BBOCA9F90CA8B702B4F702B37E040069 
SI 13 I840SFFE0CA8FF02CSBDI86BFE02C509270682 
SI 1318a0FF02CbbF20FI 3 97D02B6270E7D02Bb2651 
SI I 3186OO3BD0dEBCE0223BD0UFB3VB602AEt6 40A5 
SI I 318 /0260C178016B002 96 178DI4BD02 9639B627 
SI 131B8002AEB54026F817BD02963V44 444444o48d 
S I I 318900F8B30813923028B0739BDI8G508A60088 
SI I 318A0810426F63 9A6008DOEA60008200D80F5BC 
SIl318B080F386207EI8CS44444444840F8B30BIC4 
SI 131OC03 92 3 028B0736B003CB32BIOA260E363705 
SI I 31BJOC6088600B003CBbA26F8 33323 97EE83871 
SI I 31BE07EE8207 EE800000037FFI8E6BUE92 9FE07 
SI I 318F0I8t6333V37FF18E6BDE9AAFEI8E633398E 
SIOEI9004FB0E9AA910026F83 9190B20 
S9 
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APPENDIX H 


ASCII Text Listing of the Relocatable Format Object Code for 

RA6800ML 
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The listing below gives the relocatable format object code of the relocatable macro assembler 
RA6800ML in ASCII text form. This listing can be used to either enter the program by hand or to verify 
the entry of the program via the bar codes given in Appendix I. Note that the ends of lines in this verifi¬ 
cation listing do not represent line feed or carriage return codes within the machine readable text. 

The relocatable file of the macro assembler can be run through the relocatable linking loader LINK68, 
available as the PAPERBYTETM publication LINK68: Linking Loader for the Motorola M6800 by Robert 
Grappel and Jack Hemenway (ISBN 0-931718-09-0), in order to reposition RA6800ML at an arbitrary, 
more convenient address if low memory is not the ideal location in the user’s system. This form of the 
Assembler object code will not be needed by users who can employ the absolute object code version of 
RA6800ML given in Appendices D or E without further relocation. 

Appendix G gives an assembly language source listing for RA6800ML. 


0000P41534D2020200000RN8EA0427E038ER414241106AR1B4144430E00R0941 
44440E00R0B414E440E00R0441534C0EF9R08415 3 520EF9R074243431019R244 
243531019 R2 542455 1 1019R274247451019R2C4247 541019R2E4248491019R22 
4249540EOOR05424C45l019R2F424C531019R23424C541019R2D424D491019R2 
B424E451019R2642504C1019R2A425241 1019R204253521019R8D42564310 19R 
284256531019R29434241106AR11434C43106AR0C434C49106AR0E434C520EF9 
R0F434C5 6106AR0A434D4E11D4RFF434D500E00R01434F4D0EF9R034350580F6 
8R8C444141106AR194445430EF9R0A444553106AR34444558106AR09454E4412 
4ERFF454E5413D8RFF454F520E00R084551551451RFF45 585414ACRFF4643421 
50ERFF4643431543RFF464442159ARFF49462015EERFF494E430EF9R0C494E53 
106AR31494E5 8106AR084A4D500FE.6R6E4A53 520FE6RAD4C44410E00R064C445 
30F68R8E4C44580F68RCE4C5 3520EF9R044D4143162ERFF4E414D1723RFF4E45 
470EF9R004E49461758RFF4E4F50106AR024F52410E00R0A504147179DRFF505 
3480F48R3650554C0F48R32524D4217BERFF524F4C0EF9RQ9524F520EF9R0652 
5449106AR3B525453106AR39534241106AR105342430E00R02534543106AR0D5 
34549106AR0F534556106AR0B5354410E91R075354530FDAR8F5354580FDARCF 
5355420E0OR0O535749106AR3F544142106AR16544150106AR06544241106AR1 
7545041106AR07 545 3 540EF9R0D545 358106AR305458 53106AR35574149106AR 
3E00000004040400040000242404248024424242424242424242420000000000 
0080838382828282808080808080808080808080808080808081808000000000 
007E5441424C45 5 3X7E555044415445X7E4D4F4E544F52X7E474554422020X7E 
4F55 54422020X7E57 5 2454F4620X7E494E4954494FX7E5245 53545220X504441 
5441 3 1 1 8 5ERN494E454545 2003 88RN43524C46202013BERNOOOOOOOOOOOOOOOO 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000000000000000000000000000000000000000 
0000000000000000000000000000454E544552204F5054494F4E533A20047EE1 
AC7EE1D17F0275RCE0378RBD18 5ER7F0 26ER73026ERBD038 8R810D2726814C26 
0486702016814F260486B0200E8153260486D02006814D26DD86E0B4026ERB70 
26ER20D3BD13BERFE024BREE00FF0262RFF07E3RCE0800FF07E5RCE07E3RBD0B 
ECRFE07E3RFF0264RCE0lOOFFO7E5RCEO7E3RBD0BECRFEO7E3RFFO266RO8FFO2 
68RFF07E5RCE3FFFFF07E3RCE07E3RBDOBFDRB607E3RF607E4RCE0009FF07E5R 
CE07E5RBD0BA1RB7026ARF7026BRCE0009FF07E3RCE07E3RBD0B7DRB707E3RF7 
07E4RFE0268RFF07E5RCE07E3RBD0BECRFE07E3RFF026CR8620FE0268RA70008 
BC026CR26F8CE0000FF0271RFF0288RCE0OO0FF0313RBD1089R7F0287RFE0262 
RFF030DR7F030CRFE0266RFF028AR86FFB70377RCE0375RFF0375RCEOOOOFF02 
73RFF026FRBD0 568R7F02 7 6RFE026FR08 FF026FRFE0280RA600812A2608BD108 
9RBD0C0ER20E27D0377R262281202703BD06F6RBD06F6RB6027DR810322E2BD0 
940R8C15EER27078C1758R270220D36E008120271DBD06F6RC101270BCE0205B 
DODBBRBD0COER2OA57CO276R7D027 5R2603BD07F8RBD06F6RC101270BCE0202B 
D0DBBRBD0C0ER2088BD0940R810027 2DBD08 57RC1FF2728C5 2027247D030CR27 
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08BD063 7R7D030CR2720FF030DRBDOCOER7C030CRBD06F6RC10D2613F702DAR2 
O0B6E00CEO207BDODBBRBD0C0ER7EO490RCE02DARFF030FRFE027BRA60008FF0 
27BRFE030FRA70008FF030FR8I0D26EA20DF7D030CR2709BD05A5R7D030CR270 
139CE0315RFF0 27ERFF0280RBD025 3R24068EA0427E1254R810A27F1810027ED 
8C0364R2705A700082004C60DE700810D26DB39FE030DRA6008117260B7A030C 
R2705BD069BR20ED39CE0292RFF0280RFF027ERFF0311RFE030DRA60008FF030 
DR812 627 I3FE0311RA70008FF0311R8C02D9R274B810D26E139E600C02F08FF0 
30DRCE02DARFF030FRA60008812C2704810D26F55A26EFFE030FRA60008FF030 
FRFE03I 1RA70008FF0311R8C02D9R2713FE030FRA60008FF030FR812C27A08 10 
D2 6 E12 0 9A8 60DA70 OCEO 23 0 BD0DBBR20 8 EFFO 2 8 ERBFO2 8CRBE02 8ARCE0 312RC6 
06A60009FF0290R3009BC0264R27 3 3FE0290R365A26ECCE02DARA600810D2703 
0820F7A600FF0290R3009BC0264R2714FE0290R36098C02D9R26EABF028ARBE0 
28CRFE028ER39BE0266RBF028ARBE028CRCE0251BD0DBBRFE028ER7F030CR39F 
F028ERBF028CRBE028ARCE02DAR32A70008810D26F8CE030DRC60632A700085A 
26F9BF028ARBE028CRFE02 8ER3 9 363 7E604FF06F4RFE06F4REE00A600FE06F4R 
6C0126026C00FE06F4REE02A100260CFE06F4R6C0326026C025A26DB33323900 
007F027DR7C027DRFE027ERFF027BRA60008FF027ER812027F02206810D26471 
63 98 15F2 30220 3FBD07C3R8 50 127 13FE027ERE600C1202704C10D260AFE027BR 
E600 398 5 802704BD07 7 3R398 5402704BD07 5CR39852026E68504270DFE027BRE 
600C12426D9BD0798R394F5F39FE027ERA6007C027DR08FF027ERBD07C3R8540 
26EDC6092043 FE027ERA6007C027DR08FF027ERBD07C3R858026ED854026E9C6 
07FI 02 7DR240 3F70 27DRC60I 201E7 FO 27DRFE027ERFF027BRFE027ERA6007C02 
7DR08 FF027ERBD07C3R850226EDC6037A027DRFE027ER09FF027ER8602398120 
25 1 6815F22127F07DFRB707EORCE07DFRBDOBECRFE07DFRA600394F3900000 IE 
AROOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOBD08B9RFF0282RA60081 
20262FFF07F6RCE07EARFF07F4RC606FE07F4RA60008FF07F4RFE07F6RA70008 
FF07F6R5A26EBB60273RA700B60274RA7018640A70239BD087ER2610FE0282R8 
680AA08A7 0 8CEO2O6BD0DBBR39BDO89 3RBCO7F0R270220ACCE022120EDBD08B9 
RFF0282RA60081202603C6FF39BD087ER2608FE0282RE608EE0639BD0893RBCO 
7F0R26E2C6FF39FF07E3R8606B707E7RCE07EARFF07E5RCE07E3RBD06C5R39FE 
0282R080808080808080808BC026CR2603FE0268RFF0282R39FE0282R8620C60 
9A70008 5A26FA39CE2020FF07EARFF07ECRFF07EERCE07EARFF07F6RFE027BRF 
F07F4RF6027DRFE07F4RA60008FF07F4RFE07F6RA70008FF07F6R5A26EBFE07E 
ARFFO7F0RFE07ECRFFO7F2RCEO7FORBDOBECRFEO7EERFFO7F2RCEO7FORBDOBEC 
RB607F0RF607F1RFE026ARFF07F2RCE07F2RBD0BA1RFF07F0R4FC609CE07F0RB 
DOB7DRB7O7F0RF7O7F1RFEO268RFFO7F2RCEO7FORBDOBECRFEO7FOR39OOOOOOO 
006B6027DRB707E7R8657B7093CR4FB7093BRB6093BR4CB1093CR260386FF39F 
6093 BRFB09 3CR56F7093DR4FCE093ER5ABD0B7DRB707E3RF707E4RCE0006RFF0 
7E5RCE07E3RBD0BECRFE07E3RFF07E8RFE027BRFF07E5RCE07E3RBD06C5R250B 
26114FFE07E8RE605EE03 3 9B609 3DRB709 3BR20A9B609 3DRB7093CR20A100000 
0000000007F09AER7F09AFR7F09B2RB709B3RC12A262DFE0273RFF09AER8602B 
709B2R730277RFE027ERA60081202708810D2704812C2608FE09AERFF0C68R5F 
39BD06F6RB709B3RB109B2R2606CE02045F53 39810227148124270220F07D09B 
2R27EBF709B4RB709B2R7E09D3RC1032611F6027DRC1042F05CE021020D5BD0A 
CER203BC1092611F6027DRC1052F05CE021020C0BD0B2AR2026C10127037E09F 
7RBD08 5 7RC58026 12C5402 705 730277R200FC5102703730278R2006CE02117E0 
9FARFF09B0R7D09B2R260FFE09B0RFF09AERB609B3RB709B2R7E09D3RB609B4R 
8 1 2 B260.8CE09AERBD0BECR20E8812D2 608CE09AERBD0BFDR20DC812A2615B609 
AERF609AFRCE09B0RBD0B7DRB709AERF709AFR7E0A73R812F27037E09F7RB609 
AERF609AFRCE09B0RBD0BA1RB709AERF709AFR7E0A73R0000FE027BR7F0ACCR7 
F0ACDRF6027DR0908 5A26FCF602 7DRBD0B18RB70ACDR5A272909BD0B18R48484 
848BA0ACDRB70ACDR5A271809BD0B18RB70ACCR5A270E09BD0B18R48484848BA 
0ACCRB7 0ACCRFE0ACCR3 9A6 0080308 1092F02800739000000000000007FOB23R 
7F0B24R7F0B26R7F0B27R7C0B27RFE027BR09F6027DRF70B25R085A26FCFF0B2 
8RE600C40F4FCE0B26RBD0B7DRFB0B24RB90B23RB70B23RF70B24R4FC60ACE0B 
26RBD0B7DRB70B26RF70B2 7RFE0B28R097A0B25R26CEFE0B23R39373 6A60 1 36A 
6003686103630A6035849680269012404EB04A9036A0026F0313131313139373 
6A600E6013736343086016D012B0B4C680269012B0481 1 1 26F5A700A603E6046 
F036F04E002A2012407EB02A9010C20010D690469036401 66026A0026E6A700E 
701EE003131313233393637A601E600AB03E902A701E7003332393637A601E60 
OAOO 3 E202A701E70033 3239B60 26ER85 8026147D0275R270F7D030CR270485 10 
2606BD0C2ARBD0C71R393 7F60287RC1002603BD0C44R7C0287RF60287RC1 3C26 



037F0287R3 3 39CE0C4BRBD18 5ER3 90D0A0D0A0D0A2E2E2E2E2E2E2E2E2E2E2E2 
E2EODOAODOAODOA04000000000000000000002004CEOC6ARB6026FRF60270RBD 
0D5CRCE0C6BRBD18 5 ER7D03 0CR2 70 5862 BBD18 8 5RCEOD59RBD18 5ER7DOC6 5R2 6 
0D7D0C66R26O8CEOD5 6RBD18 5ER20 2BCE027 3RBD186ERF60C66R2720C101270E 
CE0C68RBDI86ERCE0D58RBD185ER2045CE0C69RBD1870RCE0D56RBD185ER2037 
F60C6 5R2608CE0D5 3RBD185ER202ACE0C67RBD1870RC1012608CE0D56RBD18 5E 
R20I8C102260ECE0C69RBD1870RCE0D59RBD18 5 ER2006CE0C68 RBD18 6 ER7D02 7 
8R27048643201D7D0279R2704865820147D027AR2704864E200B7D0277R27048 
65220028620BD1885R8620BD1885RFE0280RA60036BD1885R0832810D26F4860 
ABD1885R7F0C66R7F0C65R7F0277R39202020202020202004FF0D9DROE0D92R7 
FOD9CREOOIA20025057C0D9CR20F5EB01A90036FF0D9FRFE0D9DRB60D9CR8B30 
A7003208 FFO D9DRFE0D9 FRO 8 0 8 8C0 D9CR26D139271003E80064000A000100000 
0000000002A2A2A2A204552524F522320000000200000000000203A043637FF0 
DA1RB60DA1R8 B30B7 0DAFRB60DA2R44444444 8B3 0B7ODB0RB6ODA2R840F8B3OB 
70DB1RCE0DB3RB60 2 6 FRF60 2 7 ORBDOD5CRCEODA3RBD18 5ERBDOD3 5R3 3 3 2 FE02 8 
8R08FF0288RFE0DA1R39BD1089RBD06F6RC10D2608CE0204BD0DBBR205BBD1OB 
7RF61084R27F0BD06F6RC123261473 108 5RBD06F6RC127260AFE027ERA600B70 
C69R200BBD09B5RBDI0D7RF6108 5R2 70CC680F71087RC6C0F71088R203CBD06F 
6RBDI0C4R262A7DO278R26OA7D0277R26O5F6OC68R27OFC6BOF71087RC6F0F71 
088RBD115ER2019C690F71087RC6D0F71088R200AC6A0F71087RC6E0F71088RB 
D1 113RBD11C2R7E0490RBD1089RBD06F6RC10D2608CE0204BD0DBBR2032BD1OB 
7RF61084R27F0BD06F6RBD09B5RBD10D7RBD06F6RBD10C4R262A7D0278R260A7 
D0277R2605 F60C68R270FC6B0F7 1087RC6F0F7108 8RBD115ER2019C690F71087 
RC6D0F71088R200AC6A0F71087RC6E0F71088RBD1113RBD11C2R7E0490RBD108 
9RBD06F6RC1OD2608CE02O4BD0DBBR202ABD10B7R7D1084R270FC640F71087RC 
650F7I088RBD10EAR2020BD09B5RBD10D7RBD06F6RBD10C4R260AC670F71087R 
BD1 17CR2008C660F7108 7RBD1131RBD11C2R7E0490RBD1089RBD06F6RBD10B7R 
7D1 084R2606CE0204BD0DBBR7C1088RBD10EARBD11C2R7E0490RBD1089RBD06F 
6RC10D2608CE0240BD0DBBR2046C1232619731085RBD06F6RC127260FFE027ER 
A600B70C68RA601B70C69R2029BD09B5RBD10D7RF610Sf5R2 702201CBD06F6RBD 
1OC4R26207D0278R260A7D0277R2605F60C68R270AC630F71087RBD117CR200F 
C6I0F71087R2005C620F71087RBD1131RBD11C2R7E0490RBD1089RBD06F6RC10 
D26B3208CBDI089RBD06F6RC10D2608CE0204BDODBBR200EBD09B5RBD10D7RBD 
06F6RBD10C4R260AC610F71087RBD117CR2003BD1131RBD11C2R7E0490RBD108 
9RBD06F6RC10D26O8CEO2O4BDODBBR2O367DO275R2731BD09B5RBD10D7RFE027 
3R0808 FF028 5RB60C69RF60C68RB0028 6RF20285RC1FF260 34D2B0DC10026034 
D2A06CE0208BD0DBBRB70C69RBD1131RBD11C2R7E0490RBD1089R7D0275R2703 
BDI82BR7C0C65R7C0284RBD0C0ERBD11C2R7E0490R00000000007F0284R7F027 
7R7F027 8R7 F0279R7F027AR7F0C66RF70C67R7F0C65R7F1084R7F108 5R7F1086 
R7F0C68R7F0C69R7F1087R7F1088R39C1412705C142270139F71084R39C12C26 
0BBD06F6RC1582604731086R397F1086R39C1FF260E7D0275R2703BDODBBR7FO 
C68R730C68R397D027 5R2720F60C67RB61084R270F81422705FA1087R2003FA1 
088RF70C67RBD18 2BR7COC65RBD0C0ER7CO2 84R397D027 5R27 3FF60C67RB6108 
4R272581422705FA1087R2003FA1088RF70C67R20147D0275R27217F0277R7F0 
278RF60C67RFAI087RF70C67RBD18 2BRF60C69RBD182BR7C0C65R7C0C65RBD0C 
0ER7C0284R7C0284R397D0275R27 5 5F60C67RB61084R271F81422705FA1087R2 
003FA!08 8RF70C67R200E7D027 5R2 7 37F60C67RFA1087RF70C67RBD182BRF60C 
68RBD182BRF60C69RBD182BR7D0278R2704C64D20077D0277R2705C652BD1 83F 
R7C0C65R7C0C65R7C0C65RBD0C0ER7C0284R7C0284R7C0284R39B60274RF6027 
3RBB0284RC900B70274RF7027 3R3 9BD1089RBD1817RBD06F6RC1012708CE0216 
BD0DBBR205D7D027 5R2641BD07F8RFE028 2RFF124CRBD06F6RC12C26E3BD06F6 
RBD09B5RC1FF27DCFE124CR86BFA4088A1OA708B60313RA706B60314RA707B60 
C69RF60C68RBB0314RF90313RB70314RF70313RBD0857RFE0282REE06FF0C68R 
730C66R73O278R7C0C65R7COC65RBDOC0ER7EO49OROOOOBD1089RBD1817R7D02 
75R260FFE027 3RFF0271R73027 5RBD025FR7E0467RFE0271RBC0273R2706CE02 
20BD0DBBRB60 26ER85 802606BD0C0ERBD13BERB6026ER852027037E134DRCE13 
C8RFF!3D1R7F13D5RFE0268R2009080808080808080808BC026CR260B7D13D5R 
270 37E12EBR7E134DRE600C12027E1E608C1FF27DBFF13D3RFF07E5RFE13D1RF 
F07 E3RC606F707E7RCE07E3RBD06C5R2205FE13D3R20BDFE13D3RFF13D1RC6FF 
F713D5R20B0BD0C2ARC606FE13D1RA600BD1 88 5R08 5A26F78620BD1885RBD186 
ERFF13D6RE600C5 402705 86 5 2BD1 8 8 5RC5202705864DBD1885RC51027058643B 
D1 88 5RC508270 58 658BD1 88 5RC5042705864EBD1 8 8 5RE6002A06CE13 8ARBD185 
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ERFE13D6RC6FFE700BD13BER7E128DRBD13BERBD13BERCE13A1RB60288RF6028 
9RBD0D5CRCE1395RBDI85ERBD13BERBD13BERCE13AERBD185ERCE0313RBD186E 
RBDI 3BERB6026ER85402606BD0259R7E024DR7E0250R205245444546494E4544 
04544845524520574552453A200000000000204552524F525304434F4D4D4F4E 
204C4 54E47 5 448 3D2004CE13C5RBD18 5ER390D0A045B5B5B5B5B5B0000000000 
OOOOOOOOOOBDI089RBD18 I7RBD06F6RC1012708CE0216BD0DBBR20397D0275R2 
743 BD08 5 7RC1FF2608CE0211BD0DBBR2025FF0C68RFE0282RA608 8A04A708BD1 
43 8RF60C68RBDI8 2BRF60C69RBD18 2BRC652BD183FRC64EBD183FR730C66R7 30 
27AR7C0C65R7C0C6 5RBD0C0ER7 E0490RFE0282R8606E60036FF144FRBD18 2BR3 
2FE144FR084A26EF390000BD1089RFE0282RFF14AAR7D0276R2608CE0213BD0D 
BBR203DBD06F6RC10D2605CE021620EFBD09B5RC1FF27E87D0275R261CFE14AA 

RA608 7D027 7R2 60484BF20028A40A708B60C69RA707B60C68RA706730C66R7CO 
C65R7C0C6 5RBD0C0ER7E0490R00OOBD1 08 9RBD1817RBD06F6RC101270BCE0216 
BDODBBRBDOCOER2O4 77C0284R7C0284R7C0284R7D027 5R260EBD07F8RFE0282R 
A608 8A0 8A708 2028C67EF7 0C67RBDI82BRBD0857RBD1438RC658BD183FR7FOC6 
8R7F0C69R7C0C65R7C0C65R7C0C65R730279RBD0C0ERBD11C2R7E0490RBD1089 
RBD06F6RC10D26O8CE0216BD0DBBR201ABDO 9 B 5RBD10D7R7C0 2 8 4R7D0 2 7 5R2 7 0 
FF60C69RBD!8 2BR7C0C65R7C0C66RBD0C0ERBD11C2R7E0490RBD1089RBD06F6R 
Cl 272708CE0204BDODBBR203CFE027ERE600C10D27EFF70C69R7D0275R2703BD 
I8 2BRFE027ER08FF0 27ER7C0284RE600C1272706C10D26E4200CE601C1 272606 
08 FF027ER20D67C0C66R7C0C65RBD0O0ERBD11C2R7E0490RBD1089RBD06F6RC1 
0D2608CE02I6BD0DBBR2039BD09B5RBD10D7R7C0284R7C0284R7D0275R272BF6 
0C68RBD182BRF60C69RBD182BR7D0277R2704C65220077D0278R2705C64DBD18 
3 FR7C0C65R7C0C6 5R73 OC66RBDOCOERBD11C2R7E0490RBD1089RBD1817RBD06F 
6RC10D2608CE0216BD0DBBR2023BD09B5RC1FF27F1BD1767R7D0377R27 147D0C 
68R2 60A7DOC69R2 6O57F03 77R2O0586FFB70377RBDOC0ER7EO49OR0O0OBDI 089 
RBD0C0ER7 FI62CR7FI62DR7D027 5R26307D0276R260B7 3162DRCE0226BD0DBBR 
2020FE028 2R8620A708 B6030DRA706B60 30ERA707BD06F6RFE027BRA60081432 
603 7 3 162CRBD0576RFE026FR08 FF026FRBD0C0ERFE0280RA600812A260A7D162 
CR27E5BDI6E3R20E07F0276RFE0280RA60081202706BD06F6R730276RBD06F6R 

8604B707E7RFE027BRFF07E3RCE17IFRFF07E5RCE07E3RBD06C5R260D7D0276R 

270ECE0 2 27BD0DBBR2006BDI6E3R7EI66FR7D0275R260B8617FE030DRA70008F 
FO 3 0DR7EO49OR7D0275R263 67D162DR263 1FE02 80RFF027ERFE027ERA60008FF 
027ERFE030DRBC0264R26I0860DA70008FF030DRCE0228BD0DBBR200AA70008F 
FO 3 0DR8I0D26D5 394D454E44BDI089RBD1817RBD06F6RC1012 709CE0216BD0DB 
BR7E142 6R7D02 7 5R2606BD07 F8R7E13EDRF6031 3RBD182BRF60314RBD182BRC6 
50BDI 83 FR7EI 3EDRBD108 9RBD18 I7RBD177BRBD0C0ER7E0490RBF028CRFE0375 
R8C03 6DR27IDBE037 5RB603 7 7R3 6201BBFO 2 8CRFE0375R8C0 375R2709BE037 5R 
32B703 7 7R2007CE0254BD0DBBR39BF0 37 5RBE028CR39BD1089RBD1817R7D0275 
R27 I 3F6028 7R270EC63CF00287RBD13BER5A26FA7F0287R7E0490RBDI089RBD0 
6F6RCI0D2608CE02I6BD0DBBR20I8BD09B5RC1FF27F47D0275R270FBD1800R7C 
0C65R7C0C6 5R7 30C66RBD0C0ERB60274RF60273RBB0O69RF90C68RB70274RF70 
273R7E0490R5FFE0C68RFF0285RBD182BRFE0285R092706FF0285R5F20F1397D 
0276R270E7D0275R2603BD08ABRCE0223BD0DBBR39B6026ER85402 60C178DI 6B 
D0256RI78DI 4BD025 6R39B602 6ER8 54026F817BD0256R3 944444444 840F8B308 
I3923028B0739BDI885R08A600810426F639A6008DOEA60008200D8DF58DF386 
207E188 5R44444444 840F8B308 139 23028B07 3 6BD03 8BR3 28I0A260E363 7C608 
8600BD038BR5A26F8333239 
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Beginning on the following page is a complete machine readable representation (PAPERBYTETM bar 
codes) of the relocatable object code for the relocatable macro assembler RA6800ML. The format is that of 
an ASCII text string without carriage return or line feed conventions. Appendix H is a direct listing of this 
file using fixed length lines to make it fit the confines of a printed page. 

This representation uses the bar code text format, in which each bar code frame (one line of barcodes 
running from top to bottom of the page) contains a segment of the ASCII relocatable format object text. 
The text must be loaded into memory and then saved on the user’s mass storage device. For details on the 
text format used in this and other PAPERBYTETM books, see the PAPERBYTE publication BarCode 
Loader by Ken Budnick. The book contains a brief history on bar codes, a general bar code loader algo¬ 
rithm with flowcharts, and complete program listing for 6800, 6502, and 8080 or Z-80 based systems. 

The relocatable file of the macro assembler can be run through the relocatable linking loader LINK68, 
available as the PAPERBYTETM publication LINK68: Linking Loader for the Motorola M6800 by Robert 
Grappel and Jack Hemenway (IBSN 0-931718-09-0), in order to reposition RA6800ML at an arbitrary, 
more convenient address if low memory is not the ideal location in the user’s system. This form of the 
Assembler object code will not be needed by users who can employ the absolute object code version of 
RA6800ML given in Appendices D or E without further relocation. 

Appendix G gives an assembly language source listing for RA6800ML. 
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0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 1 122222222223333333333 
0123456789012345678901234567890123456789 



0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 1 122222222223333333333 
0123456789012345678901234567890123456789 
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0000000000000000000000000000000000000000 

4444444444555555555566666666667777777777 

0123456789012345678901234567890123456789 




0 0 0 0 0 0 0 

4 4 4 4 4 4 4 

0 1 2 3 4 5 6 


000000000 

444555555 

789012345 


0 0 0 0 0 0 0 

5 5 5 5 6 6 6 

6 7 8 9 0 1 2 


000000000 
666666677 
3 4 5 6 7 8 9 0 1 


00000000 

77777777 

23456789 
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.. 


0000000000000000000 

8888888888999999999 

0123456789012345678 



.. . . . . ' . >»...". 

. .«iiiiiiiii«iMiiMiiiiiiii i iiiiiiMii iii iiiii iiiiii Miiiiiii ii i iiH i iiiiiiiiiMiiiiiMiiiiiiiiimiiiiiniiiiiiiiiiii>iiiiiiiiiiiiii*imiiiiii*mm*imi**iiii | iiii***iii**ii**i^**i**^**^^***^ 

„„„„„.....mm........mm...... 

ll 1 .iii.i iiinniiiiiiii»i i iiiniiiillllllllllllllllll l ll ll llllllllllll ll Hll lllllllllllllllllllllllllllllllllllllllllHIIIIIIHIIinilllllllllH | l | l | H |||||||||||lll »» 11111111111111111111111111111111111111111 
mi.....III!.II.mill.1IIIIIH.Ilium. iiiiiiiiii. 



1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll,l l l ll l„,l„ll„„, l l l „„ I,„„„„ 

11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 
lllllllllllllilllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
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1111111111111 

2222222222333 

0123456789012 


1111111111111 

3333333444444 

3456789012345 


11111111111111 

44445555555555 

67890123456789 












s 

S 


1 


1111111111 

2222222222 

0123456789 


1111111111 

3 3 3 3 3 3 3 3 3 3 
0123456789 


1111111111 

4444444444 

0123456789 


1111111111 

5555555555 

0123456789 
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1 1 1 1 1 i 1 1 1 
666666666 
012345678 


11111111 
67777777 
9 0 1 2 3 4 5 6 


11111111 
77788888 
7 8 9 0 1 2 3 4 


1111111 
8 8 8 8 8 9 9 
5 6 7 8 9 0 1 


11111111 

99999999 

23456789 
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2222222222222222222222222222222222222222 
00000000001 1 1 1 1 1 1 1 1 1 22222222223333333333 
0123456789012345678901234567890123456789 
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2222222222222222222222222222222222222222 

4444444444555555555566666666667777777777 

0123456789012345678901234567890123456789 



153 



Corrected page 154 for RA6800ML 


2 2 2 
8 8 8 
0 I 2 


i i 

4 5 


2222222222 
8881999999 
6 7 8 9 0 12 3 4 5 


2 2 2 
9 9 9 
6 7 8 


2 3 3 
9 0 0 
9 0 I 


3 3 3 
0 0 0 
2 3 4 


3 3 3 
0 0 0 
5 6 7 


3 3 3 
0 0 1 
8 9 0 


3- 3 3 
1 I 1 
1 2 3 


3 3 3 
I I 1 

4 5 6 


3 3 3 
I I 1 
7 8 9 



22222222222222222222 

8888i888889999999999 

01234567890123456789 



33333333333333333333 

00000000001 1 1 1 1 I 1 1 1 1 

01 23456789012 3 456789 
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3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
22222222223333333333 
01234567890123456789 



2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 
01 234 5 67890123456789 


3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44444444445555555555 
01234567890123456789 



4444444444555 5 5 55555 
01 234567890 I 2 3 456754 
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33333333 
66666666 
0 1 2 3 4 5 6 7 


3 3 3 3 3 3 3 
6 6 7 7 7 7 7 
8 9 0 1 2 3 4 


3 3 3 3 3 3 3 3 
77777888 
5 6 7 8 9 0 1 2 


33333333 

88888889 

34567890 


333333333 
999999999 
1 2 3 4 5 6 7 8 9 


3 3 3 
6 6 6 
0 - 1 2 


3 3 
6 6 
3 4 




3333333333333 

8888889999999 

4567890123456 


3 3 3 
9 9 9 
7 8 9 
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4444444444444444444444444444444444444444 
00000000001 1 1 1 1 1 1 1 1 122222222223333333333 
0123456789012345678901234567890123456789 



0000000000 1 1 1 1 1 1 1 1 1 1 22222222223333333333 
0123456789012345678901234567890123456789 
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4 4 4 4 4 4 
4 4 4 4 4 4 
0 1 2 3 4 5 


4 4 4 4 4 4 4 
4 4 4 4 5 5 5 
6 7 8 9 0 1 2 


4 4 4 4 4 4 

5 5 5 5 5 5 
3 4 5 6 7 8 


4 4 4 4 4 4 4 

5 6 6 6 6 6 6 

9 0 1 2 3 4 5 


4 4 4 4 4 4 4 
6 6 6 6 7 7 7 
6 7 8 9 0 1 2 


4 4 4 4 4 4 4 
7 7 7 7 7 7 7 
3 4 5 6 7 8 9 



4 4 4 
4 4 4 
0 1 2 



4 4 4 4 
4 4 4 4 
3 4 5 6 
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4444444444444 

8888888888999 

0123456789012 


4444444555555 

9999999000000 

3456789012345 


55555555555555 

00001111111111 

67890123456789 
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55555555555555555555 

22222222223333333333 

01234567890123456789 



55555555555555555555 

44444444445555555555 

01234567890123456789 
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5555555555555555555555555555555555555555 

6666666666777777777788888888889999999999 

0123456789012345678901234567890123456789 
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66666666666666666666 

00000000001111111111 

01234567890123456789 



66666666666666666666 

22222222223333333333 

01234567890123456789 


6666666666666666666 

2222222223333333333 

1234567890123456789 
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APPENDIX J 

Cassette Tape IO Listing 
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OOOO 0000 


NAM TOR IVERS 

TAPF DRIVERS FOR RA6800ML ASSEMBLER 
COPYRIGHT I977 JACK E. HEMENaAY 
BOSTON MASS. 021 II ALL RIGHTS RcSERVtD 


oooo ia oooo x 

0003 7E 0000 X 
0006 7E OOOO X 


000V 01 El 
0009 0009 
0009 OOOC 
0009 0016 
0009 0032 
0009 0088 
0009 004E 
0009 006F 


* ROUTINES IN THE ASSEMBLER 

* 

EXT PDATAI 
EXT IN FEE 
EXT CRLF 

* 

* ENTRY POINTS IN DRIVER 

★ 

ENT TABLES 
ENT UPDATE 
ENT MONTOR 
ENT GETB 
ENT 0!;TB 
ENT wREOF 
ENT INITIO 
ENT RESTR 

•k 

* LOCATIONS IN MIKBUG 


0009 7E E0E3 
OOOC 7E E0E3 


UPDATE JMP SE0E3 
MONTOR JMP SeOE3 


OOOB 0001 
0010 0002 
0012 0002 
0014 0002 


CKStlM RMB I 
INPl'R RMB 2 
OTPTR RMB 2 
JXSV RMB 2 

★ 

* GET A BYTE RETURN IN A REGISTER 


0016 

FF 

001 4 

R 

GETB 

STX 

DXSV 


0019 

FE 

0010 

R 


LDX 

INPTR 


OOIC 

A6 

00 



LDA 

A O.X 

GET A CHAR 

00 IE 

81 

17 



CMP 

A #$ 1 7 

ETB ? 

0020 

26 

05 



BNE 

GETB 1 

NO 

0022 

31 




PSH 

B 


0023 

BD 

009A 

R 


JSR 

RDBUF 

READ ANOTHER BLOCK 

0026 

33 




PUL 

B 


0027 

A6 

00 


GETB 1 

LDA 

A O.X 

GET CHAR 

0029 

OB 




INX 



002A 

FF 

0010 

R 


STX 

INPTR 


002U 

FE 

0014 

R 


LUX 

DXSV 


0030 

OC 




CLC 



0031 

39 




RTS 




* OUTPUT BYTE IN A REGISTER 


0032 FF 0014 R OUTB 
0036 FE 0012 R 
003b 8C 06EO R 
003B 26 07 


STX DXSV 
LDX OTPTR 

CPX #OTBUF+$IFD PILL7 
BNE OUTBI NO 


003U 36 
003E 37 
003F BO 0129 
0042 32 
0043 33 

0044 A7 00 
0046 Od 
0047 FF 0012 
004A FE 0014 
004U 39 


PSH A 
PSH B 

JSR .iRITBF 
PUL A 
PUL B 

STA A 0,X 
INX 

STX OIPTR 
LDX DXSV 
RTS 


SAVE CHAR 


004E CE 01 E3 
0061 FF 0010 
0054 86 17 
0056 A I 00 


INITIO LDX #INBUF 
STX INPTR 
LOA A #$I 7 
STA A 0,X 


006b CE 03E3 
005 B FF 0012 
005E 39 


LDX #OTBUF 
STX OTPTR 
RTS 

★ 

* PROMPT TO RErtINO TAPE 


165 



OObF 

CE 

0070 

k 

RESTR 

LUX 

♦REWIND 

0062 

BO 

0000 

R 


JSR 

PDATA1 

006b 

BO 

0003 

R 


JSR 

INEEE 

OOAti 

81 

00 



CMP 

A #S0D CR ? 

006A 

26 

F9 



BNE 

♦-5 

006C 

BO 

0006 

R 


JSR 

CRLF 

006F 

39 




RTS 


0070 

52 



REWIND 

FCC 

'REWIND TAPE AND TYPE CR' 

00a7 

04 




FCB 

4 


★ 


★ CLOSfc OUTPUT FILE 


0088 

BD 

0129 

R 

★ 

WREOF 

JSR 

WRITBF 


0088 

FE 

0012 

R 


LOX 

OTPTR 


008E 

86 

04 



LDA 

A #4 


0090 

A7 

00 



STA 

A O.X 


0092 

08 




INX 



0093 

FF 

0012 

R 


STX 

OTPTR 


0096 

BD 

0129 

R 


JSR 

WRITBF 


0099 

39 




RTS 







* REAO 

IN A BLOCK FROM 

TAPE 1 * 

00 9A 

7F 

OOOF 

R 

RDBUF 

CLR 

CKSUM 


009D 

CE 

0IE3 

R 


LUX 

#1NBUF 

POINT TO INBI'F 

OOAO 

BD 

0I5E 

R 


JSR 

T1 IMZ 

START TAPE 1 

00A3 

BO 

0181 

R 

ROI 

JSR 

TIGET 

GET CHAR 

00A6 

bO 




1ST 

B 

OK ? 

OOA7 

26 

18 



BNE 

RD2 

NO 

00 A 9 

A/ 

00 



STA 

A 0,X 

PUT IN INBUF 

OOAb 

03 




INX 


BIIMP POINTER 

OOAC 

81 

04 



CMP 

A #$04 

EOF? 

OOAE 

27 

10 



BED 

RD4 

YES 

OOBO 

81 

17 



CMP 

A #$l 7 

ETB? 

0082 

26 

EF 



bNE 

RDI 

NO 

00 B4 

8C 

03E2 

R 


CPX 

#INBt)F+SIFF OVERRUN ? 

00B7 

27 

08 



BEO 

RD2 

YES 

OOB9 

BO 

0181 

R 


JSR 

TIGET 

GET CKSUM BYTE 

00 BC 

7C 

OOOF 

R 


INC 

CKSUM 

OK ? 

OOBF 

27 

Ob 



BEQ 

R03 

YES 

OOCI 

CE 

0102 

R 

RD2 

LDX 

♦TAPE RR 

BAD 

00C4 

2 J 

OA 



BRA 

RDS 

FINISH UP 

00C6 

BO 

01 99 

R 

RD3 

JSR 

TIISTP 

STOP TAPE 1 

00C9 

CE 

0IE3 

R 


LDX 

#INBUF 

INI! INPTR 

00 CC 

39 




RTS 



OOCD 

CE 

OOEO 

R 

RD4 

LOX 

#EOF 

EOF MSG 

oooo 

BO 

01 99 

R 

RD5 

JSR 

TIISTP 

STOP TAPE 

0003 

BO 

0000 

R 


JSR 

PDATA1 

PRINT MESSAGE 

00 D6 

BO 

0003 

R 


JSR 

INEEE 

WAIT FOR "GO" 

0009 

81 

00 



CMP 

A #$0D 

CR ? 

ooob 

26 

F9 



BNE 

*-b 

NO 

oouu 

7E 

009A 

R 


JMP 

RDBUF 

TRY AGAIN 

00 EO 

45 



EOF 

FCC 

'EOFiRE POSITION TAPE AND TYPE 

OOFF 

000A 



FDB 

$OLKM 

CR.LF 

0101 

04 




FCB 

4 

EOT 

0102 

54 



TAPERR 

FCC 

'TAPE ERRORiBACK UP A BLOCK A 

0126 

OOOA 



FOB 

SODOA 

CR.LF 

0128 

04 




FCB 

$04 

EOT 


* WRITBF* WRITE OUT OTBUF TO TAPE2 

★ 


0129 

37 



WRITBF 

PSH 

B 



0I2A 

FE 

0012 

R 


LDX 


OTPTR 


0I2D 

8C 

03E3 

R 


CPX 


#OTBUF 

EMPTY 

0130 

27 

22 


If 

BEQ 


WRTBFC 

YES 

0132 

86 

17 



LDA 

A 

#S 1 7 

LOAD ETB 

0134 

A7 

00 



STA 

A 

O.X 

PUT INTO OTBUF 

0136 

CE 

03 E3 

R 


LDX 


♦OTBUF 

POINT TO OTBUF 

0139 

5F 




CLR 

B 


CLR CKSUM REG 

01 3A 

BD 

01 A1 

R 


JSR 


T20TZ 

START TAPE 

01 3D 

A6 

00 


WRTBFA 

LDA 

A 

o.x 

GET CHAR 

0I3F 

EB 

00 



ADD 

B 

O.X 

ADD TO CKSUM 

01 41 

BD 

01 BC 

R 


JSR 


T20UT 


0144 

BC 

0012 

R 


CPX 


OTPTR 

DONE ? 

0147 

27 

03 


It 

BEO 


WRTBFB 


0149 

08 




INX 



NO 

01 4A 

20 

FI 


If 

BRA 


WRTBFA 

DO AGAIN 

0I4C 

53 



WRTBFB 

COM 

B 


FORM CKSUM 

0I4D 

17 




TBA 



BYTE 

0I4E 

BD 

01 BC 

R 


JSR 


T20UT 


Olbl 

BD 

0IC9 

R 


JSR 


T20STP 

STOP TAPE 







* 





0154 

CE 

03E3 

R 

WRTBFC 

LDX 

#OTBMF 


0157 

FF 

0012 

R 



STX 

OTPTR 

INIT OTPTR 

OISA 

33 





PUL 

B 


0I5B 

39 





RTS 







★ 

★ 

TAPE 

DRIVERS! 


o isc- 

BJ10 


* 

TP 1 ST 

EQ'J 

S80I0 


oi BC 

601 1 


TP 1 DAT 

ECU 

$30 11 


01 SC 

6014 


TP2ST 

ECU 

$8014 


01 sc 

6015 


TP2DAT 

EQU 

$8015 


01 sc 

0002 


TXSV 

★ 

RMB 

2 






* 

* 

START TAPt FOR A READ! 

OISE 

FF 

OISC 

R 

TIINZ 

STX 

TXSV 


0161 

36 





PSH 

A 


0162 

86 

1 7 




LDA 

A #$ 1 7 

MASTER RESET 

0164 

B7 

BO 10 




STA 

A TP 1ST 


0167 

86 

5U 




LDA 

A #$5U 

RTS I = 1 

0I6R 

8/ 

8010 




STA 

A TP 1ST 


OISC 

CE 

0280 




LDX 

#$02e0 

DELAY 1 SEC 

0I6F 

BD 

0IU9 

R 



JSR 

TDELY 


01 72 

86 

5/ 




LDA 

A #$57 

MASTEH RESET 

01 74 

B7 

8010 




STA 

A TP 1ST 


01 7/ 

86 

SU 




LDA 

A #$5D 

RTSi * 1 

OI7y 

B7 

8010 




STA 

A TP 1ST 


0I7C 

32 





PUL 

A 


01 7D 

Ft 

OISC 

R 



LDX 

TXSV 


0180 

39 





RTS 







* 

READ 

A BYTE 


0181 

F6 

8010 


TIGET 

LDA 

B TP 1ST 

GET STATUS 

0184 

CS 

01 




BIT 

B #$01 

RDRF7 

0186 

27 

F9 




BEQ 

*-5 

NO 





★ 





0188 

CS 

70 




BIT 

B #$70 

ERRORS? 

01 8A 

27 

01 




BEQ 

*+3 

NO 

01 BC 

39 



£ 


RTS 


YES 

01 BU 

B6 

8011 




LDA 

A TP 1 DAT 

GET BYTE 

01 VO 

16 





TAB 



oiyi 

FB 

OOOF 

R 



ADD 

B CKSUM 

FORM CHECKSUM 

oi y4 

F7 

OOOF 

R 



STA 

B CKSUM 


01 w 

SF 





CLR 

B 


0198 

39 





RTS 







★ 

STOP 

TAPE AFTER A 

READ 

01 oy 

36 



TI ISTP 

PSH 

A 


01 9A 

86 

17 




LDA 

A #$17 


019C 

B7 

8010 




STA 

A TP1ST 


OIPF 

32 





PUL 

A 


01 AO 

39 





RTS 







* 

START TAPE FOR OUTPUT 

01 A1 

37 



T20TZ 

PSH 

B 


01 A2 

36 





PSH 

A 


01 A3 

FF 

OISC 

R 



STX 

TXSV 


0IA6 

C6 

1 7 




LDA 

B #S I 7 

MASTER RESET 

01 Ab 

F7 

8014 




STA 

B TP2ST 


01 AB 

C6 

5U 




LDA 

B #$5J 

RTS * = 1 

01 AD 

F/ 

8014 




STA 

B TP2ST 


01 BO 

CE 

0500 




LDX 

#$0500 

DELAY 2 SECS 

01 B3 

BD 

01D9 

R 



JSR 

TDELY 


01 B6 

32 





PUL 

A 


01 B7 

33 





PUL 

B 


01 Bb 

FE 

0I5C 

R 



LDX 

TXSV 


01 BB 

39 





RTS 







★ 

WRITE A BYTE TO TAPE 

01 BC 

37 



T20UT 

PSH 

B 


01 BD 

F6 

8014 


T20UTA 

LDA 

B TP23T 

GET STATUS 

01 CO 

CS 

02 




BIT 

B #$02 

READY? 

01 C2 

27 

F9 




BEQ 

T20UTA 

NO 

01C4 

B7 

BO IS 




STA 

A TP2DAT 

YES, WRITE 

0IC7 

33 





PUL 

B 


01 CB 

39 





RTS 







★ 

STOP 

TAPE AFTER A 

WRITE 





★ 






01 C9 

4F 



T20STP 

CLR 

A 

01 CA 

BD 

01 BC 

R 


JSR 

T20UT 

01 CD 

BD 

01 BC 

R 


JSR 

T20UT 

01 DO 

BD 

01 BC 

R 


JSR 

T20UT 

01 D3 

86 

17 



LDA 

A #$ 1 7 

01 D5 

87 

8014 



STA 

A TP2ST 

01 D8 

39 



* 

RTS 


01DV 

4F 



* 

TDELY 

CLR 

A 

01 DA 

4C 



TDELY1 

INC 

A 

01 DB 

26 

FD 



BNE 

TDELY1 

01 DD 

09 




UEX 


OIDE 

26 

FA 



BNE 

TDELY 1. 

01 EO 

39 




RTS 



* 


* 


* 


01 El 

05E4 

R 

TABLES 

FDB 

*+■$0403 

01 E3 

0IE3 

R 

INBUF 

EQU 

* 

0IE3 

03E3 

R 

OTBUF 

* 

EQU 

END 

*+$200 


WRITE PAD CHARS 


CKSUM OOOF 
CRLF 0006 
DXSV 0014 
EOF OOEO 
GETB 0016 
GETBI 0027 
INBUF 01E3 
INEEE 0003 
INITIO 004E 
INPTR 0010 
MON TOR OOOC 
OTBUF 03 E3 
OiP'TR 0012 
OU'TB 0032 
OUTBI 0044 
PDA TAI 0000 
RDI 00A3 
RD2 OOCI 
RD3 OOCO 
RD4 OOCD 
RUB OODO 
RDBUF OOPA 
RESTH 005 F 
REWIND 0070 
TIGET 0181 
TIINZ OISE 
Tii stp oi 99 
T20STP 0IC9 
T20 TZ 01AI 
T20UT 01BC 
T20UTA 01BD 
TABLES 01 El 
TAPERR 0102 
TDELY OIDy 
I'DELYl 01 DA 
TURIVE 0000 
TP I DA T 8011 
TP I ST BO 10 
TP2DAT 80IS 
TP2ST BO 14 
TXSV 01 SC 
UPDATE 000V 
WREOF 0088 
WRITBF 012V 
WRTBFA 01 3D 
WRTBFB 0I4C 
WRTBFC 0154 


THERE WERE! 


R 

RX 

R 

R 

RN 

R 

R 

RX 

RN 

R 

RN 

R 

R 

RN 

R 

RX 

R 

R 

R 

R 

R 

R 

RN 

R 

R 

R 

R 

R 

R 

R 

R 

RN 

R 

R 

R 

RN 


R 

RN 

RN 

R 

R 

R 

R 


00000 ERRORS 


COMMON LENGTH* 0000 
ICOM FDOS-I1/6800-0.I 
! 
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Appendix K 

ICOM Floppy Disk IO Listing 


OOOU 

oooo 

N 


NAM DDRV 


00IB BD EVAA 

JSR 

NRT 




* 



00IE FE OOOV R 

LDX 

UXSV 




★ 

DISK DRIVERS FOR RA6800ML ASSEMBLER 

0021 33 


PUL 

B 




★ 

COPYRIGHT 1V77 JACK E. 

HEMENWAY 

0022 39 


RTS 





■k 

BOSTON MASS. 02111 ALL 

RIGHTS RESERVED 


★ 






■k 




* WRITE NULLS TO LAST SECTOR 




* ENTRY POINTS IN DRIVER 



★ 






* 



0023 4F 

WREOF 

CLR 

A 

oooo 

002 C 

N 


ENT TABLES 


0024 BD EVAA 

JSR 

WRT 

oooo 

0003 

N 


ENT UPDATE 


0027 VI OD 


CMP 

A OCNTR 

0000 

0006 

N 


ENT MONTOR 


002V 26 FB 


BNE 

WREOF 

oooo 

000 B 

N 


ENT GETB 



* 



oooo 

0017 

N 


ENT OUTB 


002B 3V 

INITIO 

RTS 

DUMMY INIT 

oooo 

0023 

N 


ENT NR EOF 



■k 



oooo 

002 B 

N 


ENT INITIO 



* START OF 

ASSEMBLER TABLES 

oooo 

OOOO 

N 


ENT RESTR 



* 






★ 



002C 002E 

R TABLES 

FOB 

*+2 




* LOCATIONS IN PROM BOOTSTRAP 

FUOS 


* 






* 






END 

oooo 

7E Ed38 


RESTR 

JMP SEo3b 






0003 

7E E820 


UPDATE 

JMP SE820 


DDRV 

OOOO RN 



0006 

7E E800 


MON TOR 

JMP SEBOO 


DXSV 

OOOV R 



OOOV 

OOOU 


OCNTR 

EQU SOOOU 


GETB 

OOOB RN 



ooov 

EV2V 


RIX 

EQU SEV2V 


INI no 

002B RN 



ooov 

EVAA 


ART 

EQU SEVAA 


MONTOR 

0006 RN 



ooov 

0002 


UXSV 

RMB 2 


OCNTR 

OOOD 






* 



OUTB 

0017 RN 




* GET A BYTE RETURN IN A REGISTER 

* CARRY FLAG SET IF EOF 

* 


OOOB 

37 



GETB 

PSH 

B 

OOOC 

FF 

OOOV 

R 


STX 

UXSV 

OOOF 

BD 

EV2V 



JSR 

RIX 

0012 

FE 

OOOV 

R 


LDX 

DXSV 

001b 

33 




PUL 

B 

0016 

3 V 




RTS 






* OUTPUT BYTE IN 

0017 

37 



OUTB 

PSH 

B 

00 IB 

FF 

OOOV 

R 


STX 

DXSV 


A REGISTER 


RESTR 0000 RN 
RIX EV2V 

TABLES 002C RN 
UPDATE.0003 RN 
WREOF 0023 RN 
NRT EVAA 


THERE WEREi 00000 ERRORS 
COMMON LENGTH* 0000 
ICOM FDOS-I1/6800-0.I 
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Index 



ABRCK 39, 41-43,48, 2585 

Accumulator Addressing Mode 2-4, 39, 42, 43, 49 

ADDR1 14, 39,46, 48-52, 56,2725 

ADDR2 14,41,48-52,56,2277 

ADDR3 14, 42, 48-52, 56 ,2281 

ADDR4 14,43,48,49,52,2337 

ADDR5 14,44,48-52,56 ,2366 

ADDR6 45,48,52 ,2438 

ADDR7 14, 46, 48-52, 56 ,2458 

ADDR8 14, 47-50, 52 ,2493 

ADDR9 14,19,48 ,2544 

ADD16 14,16,18,55, 56,75(97 

ADR1NT 11,24-32, 34-37, 39, 41-48,2565 

Cassette Tape Files 19, 20-23, 60, 67 

Character Set 1 

Character Table (CHRTAB) 12, 13,0279 

CMN 5,7 

Comments 1, 2 

Common 5, 7, 24, 56 

COMPAR 13,16,19,25,34,097 7 

CRLF 25,307 7 

CVBTD 13, 25,2073 

CVDB 13,56, 7 677 

CVHB 13, 56, 7677 

CVHBS 13, 7660 

DELSYM 19, 38, 1284 

Direct Addressing Mode 3, 4, 39, 41,44, 45, 50 

Diskette Files 19-23,61 

DIV16 14, 18, 56, 1749 

DSCAN 55, 1041 

END 5, 11, 12,25 

ENT 5, 7, 26 

Entry 7 

EQU 5,7,27 

EXT 5, 7, 28 

Extended 3, 4, 39, 41,42, 44-46, 51 

External 7 

FCB 5,29 

FCC 5 

FDB 5,7,31 

GETB 23,0350 
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GCHRTB 14,52,55, 7700 
HASH 14,17,18, 1298 
HSCAN 52,55,7077 
IF 5,13,32 

Immediate Addressing Mode 3, 4, 39,44, 50, 51 

Indexed Addressing Mode 2-4, 39,41, 42, 44-46,49, 50, 55, 56 

INEEE 23, 0408 

Inherent Addressing Mode 2, 5, 39, 48 
INXCK 14, 39, 41,42,44, 56, 49, 52, 2598 
Label 1, 5, 6, 38 

LBLCK 14,19, 24-26, 28, 32, 35, 36, 38, 3622 
LCLCN 28-31,39, 41 -44, 46-48, 52, 2759 
LCNAB1 14,19, 42, 43, 49, 2634 
LCNAB2 39,50 ,2658 
LCNAB3 39,41,51,2702 
LCN2 14,19,42; 44, 46, 47, 50, 2678 
LCN3 14,19,42,44,46,51,2727 
L1NCK 14, 25, 1851 

LKPSYM 11,18, 19, 24,26,28, 56, 7276 
MAC 6, 34 

MACMOV 14,35 ,3445 

MACPSH 11,22 ,0806 

MACPUL 22, 0870 

Macro 2, 6, 7, 8, 20-22, 25, 34, 35 

Macro Table (MACTBL) 6,11,12,13,0560 

MAIN1 0541 

MEND 6-8, 34 

Mnemonic Table (MNTAB) 11,12,16, 0018 

MNLKP 11,13,14,16 ,1384 

MPY16 13,14,16,18, 56, 1718 

NAM 6,35 

NIF 6,13,36 

NSCAN 55, 1056 

NSEVL 13, 14,18, 24, 27, 29, 31,32, 37, 41,42, 44,46,47, 49, 56, 1457 
NXTOK 11, 24, 26-32, 34, 35, 37, 41 -47, 49, 52, 55, 56, 0976 
Opcode 2, 39 
Operand 2, 39 
OUTB 19,0557 

OUTBIN 19, 26, 28-31, 35, 38, 48-50, 3638 
OUTBNR 19,26,28, 31,35,5657 
OUTCHR 14, 25, 36,5705 



OUTHL 19,3650 

OUTHR 19 ,3664 

OUTL 14, 1891 

OUTL7A 14, 1988 

OUT2HS 14, 3687 

OUT4HS 14,3635 

PAG 6,36 

PASS1 0417 

PASS2 0522 

PBLOCK 28 ,3085 

PD AT A1 14,16,23,25 ,3675 

POCMN 14,17,18,38,48,52 ,2769 

POEND 13,14,25,38,48 ,2832 

POENT 14,18,19, 26, 28, 38, 48, 52, 3037 

POEQU 14, 27, 48, 52, 56, 3104 

POEXT 14,17-19,28, 38,48, 52,3/55 

POFCB 14, 19, 29, 48, 49, 52, 56, 3201 

POFCC 14,19, 30, 48, 52, 3227 

POFDB 14,19, 31,48, 52, 56,3273 

POIF 14, 32,33,48, 56,33/6 

POM AC 13, 14, 20, 34, 35, 48, 52, 3354 

PONAM 14,17,19, 35, 38, 48, 52, 3483 

PON IF 14,33, 36,48,35/2 

POPAG 36, 38, 48,3553 

PORMB 14, 37, 38, 48, 52, 56, 3572 

PRINTE 11, 13,14,17, 22, 24-32, 34-39, 41-44, 46, 47, 49, 2072 
PRINTL 11,14, 24-32, 34, 35, 37, 48-51, 1833 
PSHIF 33,3521 
PULIF 33, 36,352/ 

P2ERR 14, 31,39,41,42, 44, 46,47, 49, 26/2 
RDBUF 23 

RDLINE 11,20, 21,34,0663 
RDMAC 14,20,21,22 ,0711 
Relative Addressing Mode 3, 4, 39, 47 
RESTR 25 
RMB 6,37 

RMBOUT 19, 37, 38,3603 
SPACER 14,16 ,1866 
Statement Characteristics 1 
Statement Length 1 
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STOSYM 11,14,17-19, 24, 28, 7747 
SUB16 14,56, 1819 
SYMCMP 13, 17-19, 7 250 

Symbol Table (SYMTAB) 11,12,13,16-19, 24, 26-28, 34, 38 ,0362 

SYMMOD 17,18, 7263 

TDELY 59 

TIGET 23,59 

T1INZ 23,59 

T1ISTP 23,59 

T20STP 59 

T20TZ 59 

T20UT 59 

WREOF 25, 59 ,0352 

WRITBF 59 


NOTE: The page numbers in bold type face indicate either the definition or the primary reference to the item. The numbers 
in italics indicate the line number in the source code listing. 
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A Note About Bar Codes ... 

Bar codes are the newest form of machine readable data repre¬ 
sentation. They are used in all PAPERBYTE™ software pro¬ 
ducts in BYTE magazine articles and self contained book publi¬ 
cations and combine efficiency of space, low cost, and ease of 
data entry with the need for mass produced machine readable 
representations of software. Bar codes were originally used for 
product identification in inventory control and supermarket 
checkout applications. Today, because of their direct binary 
representation of data, they are an ideal computer compatible 
communications medium. In the application of bar codes to soft¬ 
ware distribution (such as PAPERBYTE books and articles), 
the use of a simple but reliable optical scanning wand and an 
appropriate program provides a convenient means for the user 
to acquire software. 

Our intent in making PAPERBYTE software available in 
bar code form is to provide a method of conveying machine read¬ 
able information from documentation to the memories and mass 
storage of a user’s system on a one time basis. We suggest that 
the user of software obtained in this manner should locally record 
the data on the mass storage devices of his system after the data 
has been scanned from the printed page. The PAPERBYTE bar 
code representations provide a standardized means of obtaining 
the data, but they cannot be compared to the convenience 
of local mass storage devices such as floppy disks, digital cassettes 
or audio cassettes. Thus if repeated use of the software obtained 
from bar code is anticipated, we recommend that the user make a 
copy on some form of magnetic medium. 

Bar Code Loader by Ken Budnik, the first in the PAPERBYTE 
series of software books, provides a brief history of bar codes, a 
look at the PAPERBYTE bar code format including flowcharts, a 
general bar code loader algorithm and well documented programs 
with complete implementation and checkout procedures for 
6800, 6502 and 8080/Z-80 based systems. 



RA6800ML: 

AN M6800 RELOCATABLE MACRO 
ASSEMBLER is a two pass as¬ 
sembler for the Motorola 6800 
microprocessor. It is designed 
to run on a minimum system 
of 16 K bytes of memory, a sys¬ 
tem console (such as a Teletype 
terminal), a system monitor (for 
instance, the Motorola MIKBUG 
read only memory program or 
the ICOM Floppy Disk Operating 
System), and some form of mass 
file storage (dual cassette 
recorders or a floppy disk). 

The Assembler can produce a 
program listing, a sorted Symbol 
Table listing, and relocatable 
object code. The object code is 
loaded and linked with other 
modules using the Linking Loader 
LINK 68. (Refer to PAPERBYTE™ 
publication LINK 68: AN M6800 
LINKING LOADER for details). 

Included in this book: a complete 
description of the 6800 assembly 
language and its components, 
including outlines of the instruc¬ 
tion and address formats, pseudo 
instructions, and macro facilities; 
details on interfacing and using 
the Assembler; error messages 
generated by the Assembler; the 
Assembler and sample IO driver 
source code listings; and the 
PAPERBYTE™ bar code repre¬ 
sentation of the Assembler’s 
relocatable object file. 
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